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LA CAO SANS PEINE 

Jean-Pierre Petit 

PROLOGUE : 

"La CAO sans peine", livre paru initialement en 1984, sous le titre 
PANGRAPHE (la maison d'édition a disparu depuis longtemps) est une 
initiation à la conception assistée par ordinateur. A l'appui, un programme 
écrit en BASIC, qui tournait à cette époque sur un Apple II, dont la mémoire 
centrale était de 48 K (près de mille fois inférieure à la mémoire de mon 
PC). Le BASIC est un peu tombé en désuétude, pour des raisons de mode. En 
effet des BASIC plus récents, s'affranchissant des défaut du langage primitif 
(suppression des numéros de lignes, emploi d'étiquettes pour repérer les sous- 
programme et les adresses en général, redéfinition des variables, introduction 
d'un compilateur) a fini par égaler en performances d'autres langages 
considérés comme plus évolués, comme le PASCAL. 

Mais le BASIC avait un avantage, il était très simple à apprendre, à 
enseigner. Le lecteur-programmeur n'aura guère de difficultés à adapter le 
logiciel présenté ici dans un autre langage de son choix. L'essentiel est donné 
: l'architecture des données, les manipulations de base (transformations 
géométriques), la façon de créer des images à volonté et de créer des vues en 
perspective. 

PANGRAPHE fut suivi par deux autres logiciels, toujours écrits en BASIC : 

SUPERAMSTRAD-3D et SCREEN, où les parties cachées étaient éliminées 
en utilisant "l'algorithme du peintre". 

PANGRAPHE servit de point de départ à plusieurs équipes de 
programmeurs qui développèrent des produits. Certains eurent même la 
gentillesse de me dédier leur logiciel, évidemment beaucoup plus 
perfectionnés. Pas mal de gens s'amusèrent beaucoup avec 
SUPERAMSTRAD-3D, qui tournait sur un "6128", autre antiquité du 
bestiaire informatique. Avant la lettre il s'agissait d'une "programmation 
orientée objet", avec recours à une "mémoire virtuelle". Le lecteur pouvait 
disposer d'une bibliothèque d'objet et réaliser tes tas de nouvelles opérations, 
comme des fusions d'objets. Les "translations-fusions" permettaient de 
multiplier des fenêtres sur la façade d'un immeuble, ou des colonnes sur celle 
dun temple. Les translation-rotation-fusions combinées permettaient de créer 
des escaliers en colimaçon à partir d’une simple marche, etc. 

La CAO est un monde infini. A l'époque nous étions limités par les 
mémoires et les vitesses de nos machines, non par notre imagination. Au 
début des années quatre-vingt, certains se souviendront peut être que j'avais 
présenté, à TF1, un petit film créé par un Apple Ile, où l'ont voyait une 



succession de vues d'avion d'un village, parties cachées éliminées. Les 
spécialistes se demandèrent comment une machine aussi lente, cadencée à 2 
mégahertz, pouvait produire des images aussi complexes, à une telle vitesse. 
En fait, elles avaient été "précalculées" et stockées sur une carte mémoire 
additionnelle de 512 K (les "pages écran" Apple faisait... 8K). Bref ceci 
préfigurait, avant la lettre, le ... vidéodisque. 

A l'époque où je dirigeais le Centre Informatique d'Enseignement que 
j'avais créé à la Faculté des Lettres d'Aix-en-Provence nous avions utilisé la 
capacité de faire afficher par l'Apple II deux "pages écran", en alternance, à 
un rythme élevé, pour créer un système de vision en relief. Un moteur 
électrique, fixé sur un casque de moto, actionnait des caches rotatifs, 
masquant et découvrant les yeux droit et gauche de l’utilisateur. Un 
contacteur, délivrant un signal en 5 volts sur l'une des entrées de la machine, 
commutait les pages écran "œil droit" et "œil gauche", de manière synchrone, 
l'ensemble ayant été baptisé "STEREOCYCLETTE". 

Ma foi, si le lecteur de la "CAO sans peine" manifestent leur curiosité, nous 
pourrons leur expliquer encore beaucoup de choses. Rien ne ressemble plus à 
la CAO qu'un ensemble de boites de MECCANO. Dans la mesure où le 
"source" est fourni (ce qui fut toujours le cas) rien n'empêche un nouveau 
venu d'adjoindre quelque gadget de son cru, un sous programme permettant 
d'engendrer toutes les coquilles d'escargot possibles, par exemple. 

La CAO, les programmes de pilotages ou de jeu d'échec, sont maintenant 
largement répandus et de plus en plus performants, comme les voitures 
télécommandées à pile, où les robots qui marchent. Programmer est devenu 
dépassé ou considéré comme une affaire de pros. Pourtant vous ne trouverez 
nulle part un logciel assez fou pour vous permettre, comme PANGRAPHE, 
de voir ce que vous avez derrière la tête. 
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"tA^A(^\ÊAA^ IMFlMtF, 




0 

IW SoüS-?&06*Al*M§ ^ *>v oXcL\A^l^2a' ■(? y cXXk^- 7" A An/ 


<-£*. et* -£ qav^X^ e^v 

<^s4jl -^cv *tsxA^- 

l/l'V-CL ly\^wZitA>o^^^^ ATM \Si tX^JLA^Z. *Ç £>vv/0-GA^2L , C. <2^^ &tu*\ 

f ck ^oaXc!_ -^a. dju^ Y T/ X T" f £$&z 

<?(4L 0j2>VW' N ^^ £X S\T&J2j dsL_ -Ç . CTW <Ks\r^ 

£'AKCTAa16&NTE. 

0V^ r >v-^M^V^L UAA^ AW6ir 4 SAa— rapiams y crVv '\J^jZajZ. <k 

^ £>1 Iaa^w CÆaxIjL- ds. RAYON '€j^aJ^ cl £ . ijZL. Ê_. <5>(x *£? 

^^(ju ^ -£ / A RC , 



LO^ d^(i2_ y l$0 C> y, 



CCKJl<^ y V-Güuu^ 

C ^ êcÀf c*- o(asJL 3.l<f-16 


<=c 

K 



ç-90 û ^/2.^ l-*’7*7 

4r°fTt/4s 0.7**3*tf 
soYtvé r<?.f 2 3rg 


3607 2X e £.2532 





l/W- -6410Ù. r \j3ü{(Ji.AjL~ : 


Cl ouW Z ' OM^JU AhwJc ^\c'e^cl ddw. 7C/4 - p.7% Ç232 / %Tat YT 

>ôowt“ -ejo>AJx , ^ -€ ' . 

PRiNTTAN{0.7ff33J di. 


PRiWT ATw(«l) 




ATTENTION ! 


>4Ttf 

4 AZIMUT ô. 

Aoùiivjt d-ax^ ~ÿ^ dL qJc 2. ^ 

'T^iunt er^-o-d£4 / eJrdsi d 

(xtH,yt(T) ) (xr&jj'rra)) 


ÆK ex - 

*Tp) >pÿVrty >pj(yT(i) /XTYVjj >jX 



y yrCÏ)<f!;C'1TC'L.)/*T(2.))>? 

vm)/xr^) - YiT?)/xTf-rj 


dsx*-H AîôJkiKüi dis. -Cjx. 'TAN&GNTE die/ oLzjul^ OAr^Qz* &h 
AZ^X CM djuxjc d eM 

CAÀajü PRÎ KIT ( ATM ( 7Tfr) /tTfr))) 

**- PRiMT (A TM ( dTCï) /*T(i))) 

L^cLuSmsA <x Aa. ht^qamjl ap^qjua^ (-ôi^ 'vc^MoMd) de Q y -e 
^ JZaa a2acl^2\ u*v , >vvo^e K ok -ÙLO&L. €'^A<k^crfZ 
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<T,VT 


St oJr YT y fla -^r^CÙ^. 7C 

$JX A ts -^( xa _- Cs*Q.GjJIqji_ cx € o^iAst <=£s> S ' tvTTvccZTw 

AT(\J 



S~C X T gYl '' tv^tcjiXx^ ©T Y T -€, {/i^oSaaa. cà 

AT W , |(ruM\/vx. Uv. <a/Vv^jiT 6? r rt&-6\ajti 

(?K £LU/UL ^ = I + 0 ^^tUcjUJL pT ^ ) 



U&AJ^O U2-4 t^JlXKAf^ £L£AJMJZA-\ <^fL^Ctt^L\CvSS^\ ^ - QzA 1 'V at ^O^AA^i 
dît S Caj2cujJLsu*jk T T ÆU £cT_S2_ A? T ' 6vT/Aa-. eTcffvv 
ATT/. %TeJr YT x 6a VsljS^u-A. 

^ 7 ^€acx. -^v^rV> 6 w^ . ^~-r XT" 

-^7 YT' x “6a '>&lÆco^ 

7 (X* g_ Taa^^^aaTc /^K-ACL f VA2^j tl,LkJj^_ 


*B<w^ ^O^a^ActTt- T€' ^? ^AWîW 

<^> 62 - TVA. A-^/ATTuAÆ_ -£ LAWÆ 05 y /V^-A UA/v -C CAcWa- / £?( '(A-v. 

^ Aïo (X7; Y73 Z."r) ëT /V» (X. 

^ ^ cefe -ŸdxaujdXj^ y cjzÛjuJL _ ^v 

rr^W Uwc^2_ C* ffe. ix^^&tx-ucé JUlATO^Jr A ^cL"ti4 ’■ 

TXA A^xJXjX*! Al ^5 IAv-^XTuaA- 4 .^A/v '>3 T?Q-(jJ\_ aX^jâxJ^ T -7 S *7 Ç$ 7 A 90° 1 

A ^ Ai-fcjaz ,r dQAra^Jr ’' Uà 

eACfMtjïMs^t' -X ^ITWUfi. CÊB. -X C^^aH^w ^îr^rViY^X_ 

-€e- u cWik 11 eA~ £fi. " <dSLtivsJr ,f 


C^QM^SIXJL 




*7 







- -fNM 02. -toi 

(J2At ckj^c^J2q_ 

+ K A C J 

*2t * 




Xr 


"^T/Ofl 

1 ^ >oV Caa_Æga^ 04{ 'V^^-^-'Q 



2T 


YTj 

✓H 

✓ 

X' 

<* 

<' 

p 

> «*_ 

ol 

1 y-r 

-/ 

» 


OP^XT^+YT 4 - «u OP= 1 /Tt^T y T ï 
3a OP = SQg ( yT+YT-i- YT* Yt) 


Oj^ aj& gLx S <ài ; 


S - AT N f Z-T/û P 


C'w '^MrY. / (^ 4o^W c^ieA^^a^ tuuv J 'étôdbi 

çZiJjL. eh>+Jr ^ ^vo^of <Yj> o^rA_^nA^^ X 7 , Y T,~Z~f. 

e^wfe ^ ^ A^Jr pUm -6x ^ cM-^ÔYr eJ~ 

^'■ A ~ R Yj2_ ,4a PÇiUa dol 0 ûmj -£c Q~Z ~7* 



-C/^” "^L 
A 1 ' T O-^r-ÿ-AA^jjfc cLj£_ 

•€ f é£*do. 

cUo^&^t CKkxj^ 

Ca. — chOskfeuj\ . 



*»» 




/ V*j 



S y d? y^xc^ç_ r yy^\cu^ 

clÜ2û/u cLov^ cjit^z 

./ . Le_ ^sr'/' ~^s^xXjC<c^ ^ 

OTTVQaaJ^ V tj C^ 

Ia/^ A£kM- 'ysrJ^CA&^\^^ . ^\r<CAJ^OL^^ l 

£< ( v\aa^ co^A>l>UTr^^ <=v / \^dCc^>eA^ cc_ 4* C_ , <-C^A 'Va. / eXJ^^OKiïjjt. <^M- 

ojoJ^ak «>^j£uæ l<?( flç_4 <^(_£ -^-ul^L.-- 

1^4 ^rr^~ -ô/A <xrv^ z <eu^ 

y^Z- -So^^u cJjl Lt*fa>V^Û_ y C-ç'vvvvvv^-C^ -'Çj^ j — 

'\rer v -*~k Ol£<k d% -€& ov^y^ tr - 

y^U- ÔVAj^L^ /y^y^JX Or^- &Llx ctj^^ ^ Cç_ £jJü^- jj^ujt Cj Co>^T is*yQ& - "^v ^ 

>4* A J2^^c&jjz Wvy 7 &C&c£ 'yY^tiAJ2_ *^^OuijL^^J2X . „.. 

^ <^Ua.CQ^ &3f &lsu& W ”C\Xa4 

OMAÛ^- £pU>. ^jXkJjl Mjj<_ B AS i C . I/Cv^y , 

*3 £âa. ^ULxâ^ Laa/> -€ C\a_A/v ^JXcJj^O 'GUsKCfyX. G__ -e^aJ^T °£-e. __ LdtA_^ 

C^JXjA-tiL ! 

o^vMyî T^ûaa. <?&2o QjLUjULA et j etc ^ ets "cA-A^y^^ ^ 

\AA^ (À&À üLiACjlKGA ci ^n/t&MA^ } CjA^t Az ^^^SIKSL CUu^ . N (fU -4 /Qn TMA^A^i 

eW>-û ^-tfKAr-e^ /Vtr^Ç_. * 


'f é 



QMAdyi (£$&. ^ Æw- xmuJc cLu^ CcrvK^TT 

ce iÀ-(2LArtxj2 'VVcrtcà TAjUi-o<-M j€A_. 'W<Ô -^A^TVÙÊA^i 

&$jl^i&cujd22 , aJ2tflà CjzUcl 4a^- / ])-CbuCt - éÙz Aâ. -^pJ2Ùh-^ . 

1 ?C 0 Y -6 (JL ALcCfc-QeMtjfZ-- y / \TV\-cX. UsyjL- Au^L <d LfaAÛü^étZtfY^A 

<?UvvAwWt -P iUM^ -eA -€z. 4vè_ a 'fia/ifo^ dM Cm^U y^yüm catâjriu^eÀ . 


dp yone ■ R€h effaçage bcfam 

2ç> IMPOT 11 Yr= 11 / XT 
30 IN-POT <{ Y fd' / Y T 
40 /AlpoT"ZTr " ■ ZT 

Ç0 1? n^dANÏ YT-0 dMD'ZT-y* TVfFN PFiWT 

M û€('i. ET OBJET C. ÔN-FôMDU-S " : B MD 

ç? op-^sec KTJ( >T+ YT-* Yt) 

=70 (PoP^0t4 N} ~2-T>P Tf/-FM p^iMT - fT/lVJT" 

SiT-E^ +P1/2" : PRiVlT:?Ril\irVihUT |MDeTFPMi(V^ ,/: ^Aj^> 
80 {f oÿ - (p 40 TAER P^T-TPiMT'' 

S (f£ - -Pl/ 2 " : PP(UT;ff?iMT"/lZiHUT lN'bET€RF\^E"-m> 
dp s - AtwPzt/ôpJ 

A00 1T ZT'0 AkJ î) VT>jù Til€N A - )£1 ÇbX ■ 6 dTû / ^ 

'l'î# (F %T-ç6 Anv k /t< œ T-t-fstf A=- \-Ç10 • AôTô 1 6jz 

d20 (F >T=^AMD ZTV0 T-fZFKJ A = 3A/A 
'130S A = ATM C YT/ArJ 

4T0 IF xt<T a mj> T4/fiM A =4 a ?• )t/A 

'/Tp /f YTcpAAJ} Yrc^TtfeM A ^ A -2 .U&lA 
T4(2T A ^ A * l £p / 3 -14*1 1 :RFh côi^AefùcR bEGRES 

4^0 S =- £ -x 18^/3- \0lA 

T0X PFiMT ,( A2i>üT . "; A : fpt h!T~ 

2-( & P|5iTT l( Ei TF - " ; S : 6FT A 0 .• AûToT^ 




0^ ni\£ sjdjM cjsu. ' ai 'iQsjrvvCtêK, ce-£k y^A. lm^ -é-cA-a^. CgJkjU. o^uj2_ 

j CK. OAr^4_ Ca^J-Ct^ ' A^t^cJXcAC^D Xr^ 


X 


^ 276 


5* [ 


y 




A°\ÿ 


& ci zi 3 ^ x 

X ci I 9 0 -^Hc\. y 

X -^j^XXsL CÂJL ^ÆLi> C-Q^-A <A cZkauXq. 

qJC 'V cAj^_ ~X~ou là—^~ 

C (gqA Cti2^ .. . , 


‘E>0 V ^/ cLsl <-Qx 0 *^y?L^2X<X4 ^C>La cp^ 2. “6 £c/^ ^ VV-otJ^ 

Al. ç ifc -ecAO^ (/ c^cca- ^ 'VcuA ^cw-^Wm^vA 

O^yJlsLA, X Y 7 

A-Wfv^ <?VÙ>J2 € '<=*-«e. cr yJXc^^B- cu^. -pjou^A (y = I¥/; Y ~ E^ ) 


%$ 



L 8cajx A-. AaI frsYj^ Cw. CêaAxÙa^ CtfAM? ViSUEL , Lw^jl ^rvXx_ 

cKr Xe^wiAa, . 

Aj ctu-4 a^y-ÿ^SV 

OUVERTURE AWéUlAiKÇ AN 

-&l (/jZmaÀ iSLWi <:5 ^. cX-Oa^_ÿ*- 

^pujA -^XJjXoJZ . 

Ô v ~ yf^jAr 4«- /^IHX <^ua_ -£e_ AùXt 

AiAX- ■€&- "UTA<A cbvXA <TV- ^£Xv-(A~j^ «Afi- A -êCAaA-v, 

A = A W. 
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Au^yJz A 'ècAÀAJ^_ : 

V - A* /AA/ 

Y= ^ ~ i«-o-* 3 / 4 M 

xâ-c*-^ Cc-a ^vlï^v—^xI . 6 Ay^-^e- 3H y ^3<-*-v -£. / -£CAaw / 

-e^ y Ay<xA -eg. JU*. z+ 10. ^ cxJtiU^ ^ ^ ^zt / 

/ ^° A - -& -ZtJ^c^ — / Ua^ 'X^c^£jt~ <s>Lot^a~Ci ■QQLa*-* t=>LQsï y / ^S-C-i. 

c^cAAiLirYuj^ d\c^ epLt^ -^&x^ oLç_ -£. crw_ XAi^av^rv^üJÜO^.ci^Q^ y 

^ Az^iy vu^J^ «^^ov^STcu^ 


L f ©6MfeCtûxji_ <3^#j4aJ2oJu^ y c'&sé- -^_ ZccHt M6 . -A'-ew^^y- A A/ 

^ u*~. au ZûôM .• 



— /A N/ cêoissANT— 


C>t ^ê^yacs. Cju>w. ^i-/r ^£A-Qaj2_ 
cÂb -^a. ~€- -C^AiZA 


/ 


tAà/ <sk 




X) 


'i£>C 






•19 






ASTiGMATiSME 


A^M^OuJb -&Û2 a^ ÀOÙXSL. : 

X = /A0 4- A -X'^3'9 / /AX 

y - S 6 ~ — s * i^. 0 /Ay 


êuv KSVAaWt^ /)Ua AX 0^ A Y cr^ AptA' Wv^î- 

\MrJl_ d-K ^ WaaAÆIA ~X / . 




Û"W 



J^OUU /WjbOoA /â^SWMAAÜ CLAM^A CLu^Z- -$SLA &a fW^w^-LA --cAlAl -^r^<y^cA&L- 

rt^aJjujyjLdjiÂ oJldAaX^S^A cLsl- Ap$~d.AcXtsl d-2- -&JUaM. CAASifaJlûjA^A 

AA/-*' cJjZsü 0-^ 

^L. (Oxy^j-C CG-étfL ^o-OTAATiOjL^r -Ê244 /l- , «A CuAjZa^A -/A^c4 "^ v - 

qo^i-dhjjSL 'JI& o^v^^É^uûKA' dJiAsos*^ ÆjQ^lkA pp^^p-iAjeA <d-ZA 4€A k&A 

£>le4 Aû- C^ru^v^UAfl- UmtCVV^ , éLçv-Æ -£ o~>r^r^^auA -£&- 

. ÙL cy^ -^ojJ: cy^jL -€». nÂ^MxJ: étârf: 



zo 




CODER LES OBJETS 

<5^ 'W. XMaaA clAj^C Lka^sl, MATRlC^ <zLji_ 

2£^L Âsl ÇjZA ù^y^z^D\ Qa^ — 

T AC€ ( 7*CS '^✓v -02^ l ^\S L ^y^LS C^j'Ia/ma^jC.^ c>(j 2^ '•£"i/v 

"?\L « F^R 1 '. 



cæa - 62 . ^€SS|^J ^r^colk 

u^js. alJJ^l cisi_ St6*M^NT^ DC" Dpô t f £ ■ 

s^TL A cLü^J^j^ C^K)^ B *4CX. ^ qÆ y&\_ cxa^a) 

(XB / YB) 4uwt -<Wv4 cooR»ON«tes écRA / 


Wxc k- AC^ck ^oJlLyL s&oSjv-ajv^r 


HPLOT X^A To X&.YB 



ZI 




vSua- d ' fîPPlE UE -4C\0u*~ <5^2-^oX>_c^€_ ■ / d^- A — 

H€SSA6E T>’«RfcUR, #e d=Aj^Vv C U'Æ, : 

& 4, KA<Z8p 

& ^<X£ <23^ 

^ A <13 J 

? 4>B <131 

CeJrfjZ CÂJU\ UAv- ^ FeiveT/eAôC • 

^sou^Iaj». -Êe. ^<^w-êa^Y"' /4 S / Ke_ Osr^fr^ -f~&G «L- Cctcfs lç_ . -4t' c. ’evf - 

•âj. Oau4 t <H -^&jJL.ch\o^ -d 1 i/vv^fe\_^o^jBVv -^^vxûaaJ^ - O^cIasl : 

-g 

^ / 

ÏTF~ 


•&. 


A .■ 



A. 


1 



M 


j ~t^Jr Ul&l 'f-ûu-i -ddu^ 9 S ^) 





CHAINES 

Bow, . &u -^w. c<yw^cA^ 

c^omJUa, f<^ ya-j^Jiâ^ u ^clW4 : 



^ ^ ^ ^ CfMîvçs y 

-6 ^ P6SS/N 6uv^lÆa^ -T^ -€a >0 u ^4 

i> ^ Li • ^ ^ewi4 ^ ^(c-HÎE^S 

XT(i, Jj 

VT fl, j) 

TT(l,j) 

X eiiw( ■€ ' y^c^-UL <<jl "6a. e^- CT -€ ' Ua^ül <5^ 

CwE cT^xArJL - Po-'v -6ao c^rt^oUyWi^^ 

XT (3, f) 

VT H, ^ 

Z-TO, f) 









DVv. cX^ 

^<5TAAV\_e ~ÿd2xi, ÇQ *■ ^Vrv^2>V^{H^^ /4^-C\__ 

Ce- ^ /■ 

C 1 ■£&& '^UXàj^ftoUa ^c ... 

v O 

cru- < ^e, 'VtxCâ ckjjt-ç-c^ f y 


/ < r 

r ' ^'Wj \.' r? 


k 



bj~ AA -1TA. .1 ! c*Ji A 

W O. & <xi A- «=><_IÏ_ -'Vv^tA-oCtA. 0 ^<fL 4 V^aC^V>^U^ ; T 


£>-GVv_ AaM.a { Tu. T^£- 'Ÿ'ZUSX^ *p*A -U2_ 
1jLvùX~ ”t^<a^A^i-AAjtj2i?û. C-OVsJ^f IV-lAVU^ ' 


cc553^ôr 

c^SNp, 



«bon *r/ 




- Vjw! y •eéf&OL <U 'ùv^^oto_ , 

4a/c 'ÿ'^A sf^ûsv-CZ- <^aa f (p^ nrtru-4 

-^<>céOx^^ oLjlk. ^vv\A^<vee_ 
ï \jlû<c^Xj ikL 'ircp^-4 <xM-Qq^ nr^ru^o ^oJl>s^s_ 

^sl Uv-/MXk^ ( 








A ^ / j^C. 'V'-4. <T\-a | r -£-V_ (XAr-Pr, üzdci Cj2-$-(\_ <3—VW^_x 

^€AzVvX_ <5>(jX cAtê^ OjfcXCiOAAJ^ . 0fYMLÀy\-4_ A^o sxi (_ç__ 

l! f A ^ 'VV-*><yÜYj2. c a-^Jr^A. cLu C&v*^yj^&s~-c0ü2~ Cs_ a^U. ' <3W -êcoi. O^ 

,- I 1 cL^/d^ . 

(XUy^l \e^eASJ-tdXjtf*~A &(jl -^dd.C&é - e ^ 'Vr^^VV^jVUi. Ce*sd\4LJ<d . '0~b*^a 

*K *- A.' odr^ Cfi^ iÿ^A -^.dUsL aa xr (l,x) 7 Y7~ ( 2 ,T) / ~ZT( ± / tr) 

'*/-«_ ^0**Jc -ô^tv-c^él Iaa^. hJ ( X) C|uX 'Wi O (?Uwr^^ -£ 

o(j^ 'f’^lA^fe' 4 ua. cJ^oJ^XL . t{ cLtxJ^ CÀ 

-$Ss\ C^trtA-cY^iV-v--^ < i - <w~- >< (i.Tj , y ci.jj 


W V AVPUÇ 3L OV /^A 




2.1>ÏK XT(3p( / î)/YTOa,ÿ/ZTÙ^a),X(30, g), VD/^, W(3yJ 

-&_ cl 1 lu» cr@rtd7 3û c-@*aLt^g£ 

^4u-i ( -e^v 31 cl 'a*» -^coûcjfr 

i~^0JUi (A- V (Xj<_ yjrALA -r 0v\ oC^ oa_ ^ 

r^— cYa, -^-Y^ce_ y A i -*^ ua^. Y *$ /Y ytv-^ 

i '' y ‘'W^^ -^JVncYXjw_4 

-^PROGRAMME- PAKJ6RAPIÆ. 

(\I-&i^j Sfoi^sfc sy^ASfrjjd&Asd -dcK. A^c^f^X Ôç-tA^ AjZ CjZ^cAjZA /Ve^Vv^ 

^ octoïùn€s 

Sy "Ce 4cfeux_ HuX 'UæJZ^ô^ 

'Ifd CSLO "^4x4 • / k/^SL CaaJ y 4 a£>4a_ 'Vv 1 ■&vv^-f r ^.cJ^Q^_ 

cLsl. IA s^X£Zz_ 1 <Xjl_ 

"CC4 CWKÙxt Wî^ i^Lm^ ÇiAjy^-A 'Vv^Uz-'j 

QxX -^tud -Ôl- -fdu-*A ^-UaA ^y^Aur^) , 



£5 



2 . ï\mTL-iS/i?)*(i‘r / i?) i y(iç l R) N (is 


C&K cTK ^JL, A>£àA-6^ t cJLsl^ cljL CXas^ç_ &(j2A 

C£*~c$jlA ck £ OjjüLz. eb l "/ 7 <^0 O , 16^ 17 

(^Vv^r^x "t&W^ (jLi 

^ & èujXto^ , 1^ 

'KX O^Ltâ>JL ‘^JLvÂgÂAjZ^ d 0,CCÀAJ\- 

^A£- (jgfàjL CQX<-$JlA. 




6^ y S^C a ^ 

L^-v-v- <^^£Iaax3 

CK^j^&X*SL - y <VU^Ô<i 

^L^-Û- . . . 

Q ^#-A- ^YVw\ “éûL O^CU^/v. Aua. Laa^_ 

JLcKaJ^ ^jAAj C'Ma_ 

ULrÂjoJj*^, "Jêsuw. - PùeAJuE. ? e Tt T, 
djx*Aj± -ÇjlA ay^rdÿjiA 8 O . Ce~ 

ao^HLv^ M6RAWE eJc A 

CK CK*- a- Aj2^/çvv_ ^ '^~sk_ 

Cj IMaI^KP^- CjJs-C. 'VWVwl ^f^rïJV^A 


Jjk A<kU -^jl ^Uy^rcrtr 

/^A^^UaA. 

^o-A_ 

Onrxi^cJ^ML , .. 


GG 



PAN6RAPHE 


— C tà éavn c^i CK -éjj- caàL 4^ U>w Jt 43 t 

C^J&vJ; oU* 4^Xs^-4 -stCcl. C2 é e R p££ oBJE' 

CK (^A Ar^Q^, STRUCTURE DVACQUiSiTlÔN PE PON/VÉES. 

^ ^Jr&l 02 ^ ^ ^ -^'^u 

^ ja^JAa oU CHAINEE, Ac^jÇj^ y c 


/4Cv cro^- , -Ûm <?(^(<vfe4... aifewjlj , J 

cKeu^c csl «<2^ 
~Crij-K ^ -é* -RæwuÆ- .^^Ux-w-* ceM-i. C-A^lsy» 








-PANGRAWE OBJET 

u3l/ ^ PROGRAMMA 

PRiNCi P A L* y Ji ckJ UA^_, MC MC/ , <5pA 

<£ tcHut" UAv dj^ SOUS-PR06RAMMCS 


O IF FD = 1 THEN 5 

1 I- = O : REM FANGRAPHE OBJET 7 / 2 / 8 4 

2 OIM XT (3 0,9),YT(30*9) ) ZT(30,9)»X(3 0,9) f Y (30 t 9)*N(30):FD — 1 

3 DS = CHR$ (13) ■+* CHR$ (4) 

5 TE XT : HOME 

6 IF C < > O THEN 3 10 

ÎO HOME 

20 RE M 

PROGRAMME MENU 


30 

40 

50 

60 

70 

8 0 

90 

1 OO 

llO 

1 20 

1 30 

1 40 
150 
1 60 
170 
1 8 0 
190 
200 

2 10 
22 0 
230 
240 
250 
260 
270 
2 80 
290 
300 
3 10 


VT AB 15: HT AB 15 
PR I NT " 

FOR TE 
HOM E 
PRI NT 
VT AB 3 
VT AB 1 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
I N PUT 
IF C = 

I F C = 


VOULE Z - VOUS : " 

“ 1 TO 500: N E XT 


HTAB 26: PRINT "FANGRAPHE OBJET 

'l-CREER UN OBJET" 

1 2 —STOCKE R UN OBJET" 

’3 —CHARGER UN OBJET" 

4 — COMPLETER UN OBJET" 

'5-MODIFIER UN OBJET" 

6 —CRE PRE SE NTE R UN OBJET)" 

7 —(STOCKE R UNE IMAGE)" 

8 - (CHARGE R UNE IMAGE)" 

9— MANIPULE R UN OBJET" 

IO —DEFINIR UN BLOC D'OBJETS" 

1 i “CONSULTE R UN FICHIER BLOC" 


3- " 

4- " 

5- " 

6 - " 

7- AF FICHE R 

8 - SORTIR DU 


GE T AS: GE T AS 


LE CATALOGUE 
PROGRA M ME" 

"VOTRE CHOIX " ; C 

17 THEN PRINT DS" CATALOG" : 

18 THE N END 

ON C GOSUB 2000 1 3 O O O *4000 #20 1 O *5000 ,40000 *40000 ,4000 
O » 1 7 O O 0,2 3 O O O * 2 9 
000 

999 GOTO IO 


(jlà 0 et £ -^ou^ 

U MENU ' lèciUDu^ cl OPTlONC . 

O^XToWi AsvJ" tMifcajA&Lé €*j(xe_ . (jJIck OJjAtU. 

At*&~ . 

I -± Ç&jüla. Uaa oQÿdr'j -«WAfti d: 4ou4 2 0 0 0 

i oydl^ Z ( TtocW OV^ oUfk ) eux ^ 04 - 3 

6tc, ■ - 

U 3> Zdik CUJLSX ORbRCS POS * TdoU- 

0\d)ML PRiMT dsL T> $ , f^d ( 1>0S 

Az\.a. ùddAjjfA&XsL ->vcpA_ otyv^m^ u>uv ty^oUsL d ' Ûw^a hA4c&^ W 4 

A-pisc OPERATfK/6 SYSTEM, 

79 



r-o u f-j ro ro ro ro ro ro ro ro 


C ^ 'TJ'OtO rV,_ ' ^ ?" -£0. 9^5 ~fXov-o~cMilA_a^ 

<^y^Lajû^ cU^ CATALOGUÉ". 


C RÊAT i ON D’UN OBJET 


c^rdjjud: SOUS-M^NÜ 7 

^ SOUS-OPTlOMS. 

/A 2^^ S ow -O. Atôju^l^û, j. y £^>u_Z 

"£ LAvcU-C2- cZft, cX\-<Xcv^_ 


2000 REM 
CREER UN OBJET 


0 05 HOME -- L = O 

O i O HOME :: PRINT " VOULEZ-VOUS::": FRIMT 
020 PRINT "l-CREER DES CHAINES" 

OSO PRINT "2-POI NTILLER DES SEGMENTS" 

040 PRINT "3—CREER UN CERCLE" 

050 PRINT "4 —CHAINER DES CERCLES" 

OSO PRINT " 5—CHAI NE R DES COURUES" 

070 PRINT "6—CREER UN ARC DE CERCLE": PRINT 
ÎOO I N PUT "VOTRE CHOIX ";C 

ilO ON C GO SU B 10000,1 1000,12000,13000,14000,1000 
999 RETURN 


CRÉÂT iON DE CHAÎNES 


c'Cùi A. SOUS OPTl’û N -SL î 



Ôl^L ^ aÀtà . hicULÂ 

^ t/u2_ 


<3U 02- 


'f^Usac /. 


30 





iOOOO REM 


CREATION DE CHAINES 


10040 
10050 
10060 
1 0070 
10080 
10090 
ÎOIOO 
1 O 1 1 O 
1 O 120 
10 130 
10140 
10 150 
10160 
10 170 
10999 


NOMBRE DE POINTS? " ; N U_) 


L = l_ + 

INPUT 
J = O 
J = J + i 

PR I NT "POINT NO " ; J 
INPUT " XT a " ; XT < L » J > 
INPUT " YT = " ;YT(L,J> 
INPUT M 2T=";ZT(L,J) 

IF JT = N <l_) THE N 10140 
GOTO 10070 


" ;RS 

THE N 


INPUT "UNE ERREUR 

IF LEFT$ (R$»l) - "O" THE N 10050 
INPUT "UNE AUTRE CHAINE? ";R* 
IF LEFTt (Rtfl) = "O" THEN 10040 
RE TUR N 


lÜKL- OuJJaC£- -'fwUA- dLCLCoJk A_ •&_ të^tcL oL' Uav. M ( 

o-^am -Ç-gl CT C -T) y -fujulA 

'4U lé-yt y 4. 3~ c / e^f -eA*_^v^ 

"&k_ 'T'^.cX^- Rû'tuM^ . 

(xOW <a. \a^CaJ: <âjza CAtfAcTèpeS &€* fôNTfcôte J c 

6^lkx. cu-l- Ll ST/ bJ (x àju i «SAUTS ÛÇ Li / 'w.a3ô 

&XjrM cXt-QM^yCt . CeJXiL OLàtü C_c UAkj2_ AaJ^cJbü, AÆ_ 

•^O^ôJljSjLz, C$JL& > 


-ç». -e'fNTRée ît vofJNées 3€Stïale\ £^5V^vn2/K^ ^ 

^ -€a si cJ^ojla^ L . 

J? UoL*-» -€* c(jz^ -Ç-jp c£q__ ~~^s^ 

— ^ C GK' (X IA/Ï\~* s>^oJ 2 . J 2 O'vq, ^OLuSt 

'^ Afi - ^ ^trvvkWtr<^ u^Lti. 



/ CAAUl S~~L-vv-^4”* 
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Qv~ ~Ca sAcumjl djiA X l / YT^ Z. Z - . (Y 

'4U-Y-jr^<'S-^ ‘^xxJL (J^ cXuAj^ -j Çcll£ -Qsl "~tdxAr<XxJ<? 

6s^Xût<w(r ex CAfev. ù^~^i£jhzj^r-u^t -&o dx -Ç 'ù^ajsJ- 

J&kk, l épuré, 

l*té&£ z|^W Sorti e oe IA BOUCLÉ D€SAiS/£\ 

^ ^ -^qSJc ~£AA£-U_A_ (" CqSlo^ oO^Xjj-^ *^tï^A>€aaS^ ^ y ‘-Û2. <^Uu2^f c ' L rw . 

^ 0 'i ¥-0 c^j?_ -Êcl ^-€^i>v^xa. œ_ 

C-Q^tljL cX^oJc 4'N~ÉL_ - 

j ~&W^ // l2^Ùx^rjX 02- ■^'01^2 £J/V ~~¥ 00J& 0 J 

2a_ y "€&4 LMa -04 c<0jsj 0 XxiA 

CKkiXZï^ , 

S^. OK V^2_ Z^Ar<AÛ_ -^0-4 -GAA^tviLA^ ’€ç_ / Vvv^\ v ^^ ^ CK0Xyi_ ClIXxX>0 

-ôe RfTÜjQA/ cu-^ OY^^^/t^ y Or^ 0-^uXj^Æ &<ju^ 

OI^'i 5 : AT( c (VJ C> oT?)J 6 T’ } Xslc^jlÇl OiiA^v£AA_^ es- OhrA.. d^u_A^ .. 

C^T^XLa^ajlk. a z£Xl Caj^ ^ " (T^sJ^ -<3 

^VrÊA^ -£ 1 &^-Y2 ïv>_■ 

4 _ couple te £ uw oBJ£T 

4^/ Cc^v^^X-6!_ -O Y^WX 2./^ / 4 -O YAfVXC. 2pf(pf^ 

C 0 - /JtsVoû 0JAAyw^A/'-e_ < 2-$£[$ ... 2 R /Joxxj^djL Ol -^(.‘iywt 2 0^ F" 

c- ( e^X 4CL Y ^Zuo y 7 ' Ùu^'æ ^ OvdîZi^-ç 4 . 

Xt^c / chr' J - , û 1 r]^Cvw-<3 -^Axr^-o-^-ê*7 <tv — oJxjuz*^ 40. civaw^ 

L + -1 , -êYc. ... 

£)V\ Ar^AACX e^JBL 

<Ççjr<-i-^_ -, 


Mou LE? - VOUS 


'i-C(Zçç£ Crç-X CKA'(KI£5 
2 -PO'iklTi LLS/ 5 . XÇSHÇNTS 

^-cRçeiç dm ce/çc le~ 

4 -CfM'ikfefc oçx CÇRCC^S 

4-C-HA'iN^R DÇ_s couples 
G~CRéEfc Ü hJ ARC DF CFRCLF 
VOXR^CHû'iR 2 





Ce^t ^ PERSPECTIVE 

cy^i- ov. a. uaaj2_ ViSlôW RAPPRoCf/^E 

ck 1 ua^ ^oCL^^v-^_ , U2i2x^uC _ cZ 

U-VjZ- COUfcSUfte' A??AfteNT£\ 



B 




(^ c, ( jUÀ^ { À^y\A cyu'd? *ejyt ^Z y^/VY^y-^^ 

cAsl "tvwt *sjr*4J\XJLAj^^ -ë^w A ^ f Q j 


__ Ç L C5Vv Aj2_^a^ IMa. O^JyZ. &K 

£<JÛ4 LAvv^U^^ ^(_£L /££<> 'ÇLaoJ^ JtsY^^ <yw IMa-S^ - 





S C^jpAC S" &^^c^'Grv\^ f^^v^-cT 

•^AA^cfe -C>^<rv^Lc_ 

— ^P(TUX. ^X2A- CéJ-À-2- -£A\j2UX'V <LÇ A< Uèv^ PôV NT i L L€ ft 

Zt)\j2A dy\s 0 £>{_£ 7 ,. Ccl (^ ^-trw<o — - 

£7y^0jYA^ 'F /'J c^\ u^^ÀZcy^Jiy.(X *Qqa Cy^rvc^f^ ^Zju^ c^uL^iy^jt 

(XKYb^D) y ^ 4_a C XF, YF/zf} . Le_ 

cxAA^fco'V^^ AZ-Op j DF 

OgA^. U>A«_ -e_ ^ cXa <;?{£_ CMA^j 

F w F*\ 


Vf 
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1 1 OOO RE M 


POINTILLER LJ N SEGMENT 


ÎIOIO I_ = L. 1 : N < I_ ) = 5 

1 1020 PRINT "DEBUT DU SEGMENT " 

1 1030 INPUT "X=";XD 

11040 INPUT "Y=";YD 
1 1050 INPUT "Z="iZD 

110 6 0 PRINT "FIN DU SEGMENT" 

1 1070 INPUT "X="iXF 

1 10 8 0 INPUT "Y-";YF 

1 1090 INPUT "Z=" ;ZF 

11100 F OR W = 1 TO 5 

1 1 1 ÎO XT(L f W) = XD + (XF - XD) (W - 1) / 4 
11120 YT(L,W) = YD ■+■ (YF - YD) <W - 1) / 4 
1113 0 ZT(L»W^ =■ ZD + (ZF — ZD) <W— 1) / 4 

111 40 N E XT W 
1 1999 RE TUR N 


^ : 

CREATION D’UN CERCLE 

C'ui (jk SOUS • OPTION 3 . 

U czKdtsL ***. 4V, OCTOfrOWe. D<^ 4s_ qjm 

ctk. •&. -gaa &&L. iv 
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12000 REM 

CREATIOM D'UN CERCLE 


120 10 
12015 
12020 
12030 
120-40 
1 2050 
12060 
12065 
1 2066 
12070 
120 3 0 
12035 
12090 
12 100 
12 110 
12 120 
12 130 
12 132 
12 133 
1 2 134 
12 140 
12 150 
12 160 
12 170 
12 180 
12 190 
12200 
12210 
122 2 0 
12230 
12232 
1 2233 
1 2234 
1 2240 
1 2250 
12260 
12270 
12230 
1 2999 


HOME 

PRINT "CENTRE DU CERCLE:": PRINT 
PR I NT : INPUT "XC=";XC 
I N PUT "YC = ";YC 
INPUT " ZC=" ; 2 C 

PRINT : INPUT "AZIMUT AXE ";AX 
AX = AX * 3.1416 / 13 0 
PRINT : INPUT "ANGLE DE SITE AXE;";SI 
SI = SI *3-1416 / 130 
PRINT : INPUT "RAYON " ; R 
CA = COS ( A X) : S A = SIN ( AX> 

CS = COS <SI):SS = SIN (SI) 
î_ = I_ + 1 
N (L.) = 9 
J = O 

J = J -+- 1 : W = (J - 1 ) * . 7 3 5 / 2 

XO = O : YO = ~R * COS (W):ZO = R * SIN <W> 

XI — ZO * SS + XO * CS 

Y 1 = YO 

ZI = ZO * CS + XO * SS 

XT <1 > vJ) — Xl * CA Y 1 * SA + XC 

YT(L t J) - XI * SA -+- Y 1 * CA ■+■ Y C 
ZT(L,J) = Z 1 ■+* ZC 
IF J - 9 THE N 12190 
GOTO 12 120 

l_ = I_ 1 

N (î_) = 9 
J = O 

J = LT + 1 : W = (J — 1) -h- .735 / 2 

XO = O : YO = - R * COS < W) : ZO = - R * SIN (W) 

XI = — ZO * SS * XO * CS 

Y 1 = YO 

ZI = ZO * CS ■+* XO * SS 
XT (L » J) = XI * CA — Yi * SA -+- XC 
YT(L,J) = XI * SA ■+' Y 1 * CA + YC 
ZT CL^J) = ZI + ZC 
IF J = 9 THE N 12999 
GOTO 12220 
RE TUR N 



^ ^ J^JLK^O tjZ& CSijL ”X “ ^ T = 9 , 

°s & 

(J eJr 5 dÀAJi. x 7L- 3 




2 _ 
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X0 Osrà ( A >_) — y^Xcw(Mx) 
y? -* X 9$ 5<~ (AX) tV^ y (Aï) 

~Z-p —> ~z-? 






X G*o (Xx ) V^X S'u^ (X xj -—^ 

x <$ f u- a x) +■ yy yx x]_ 


y 


-> 


X Xx d. 

0 cLslkk^ 4 c 

L. "V X Cü 


Gz.- /ckrwf~ Cc -4 Iâ. C^uJL -Ô 2 X 3 -£<J c/ç^OA -"Y 2 "Y 34 / 

,4 I 'f<T 0 / ^2 -r 60 . 

(TX- dy&r^-JLA.-O-- uJsAqj^JZàxKSlAA^JLj^ Ua^_£_ (XmJjvJI^ 'V^AA^iff^- d<Jt C_Q_ -^-Cru^<i — 


OBJETS 


REVOLUTION 


4X x ^MJ&Gv 
C- ^êA-G /h&A Ay\jxi 1 




'ïvvxü It -<4<xÜ3 -j^ajO^C. <^uiL^u^c^crà< 
i/^-O- / \rtr'>-4 la, ^ <5* u^-2AÀj2X(A^ 

^ P0UVÊ2. PAS FAIRE 


5& 


&wJ2s \A jcLa ! 


&THUR 


'/ — 


Loucher I 




l+3g® 

sSëSy 


JjJt 'W.' utë 



A©, 


CB 


. l " : "'/?^^S?A 

; / ••.'/.-' h ; h / - 


- 'Itdu-à OA/ 

C<fVv^rrMtvv^r -AoÀML 


Ux^Ms^- 

^ (J2. $A 


Ÿ*r*' \ 

Sfç;r- __" 


Bct'v._ ,> 3€ Uv^téJi£^a*JT dis. 'fi^tusjï xÀ. 

(5^6-4 <?te_ AfiArcré^^LçV. . 




'Xfcrlo^ Ua\x C^AjuL t^6M'V'^YT cLiL. C/Xj£J2/c £?(j2A Oc^Tq ^^TTr^P a 

(jDOJ^iûJxAjfC ; &k~ djL cJboüir^A^ O&A Oo\AQ jla 

Oxvx OüJJ^su^ . Uo^XC ds 24 oc^o^g-^rvMiA èJcoj^sk oi ûXT , 


13000 REM 

CHAINAGE DE CERCLES 


13010 HOME : PRINT "CERCLES COAXIAUX // OX" 

13012 PRINT : PRINT "AXE DES CERCLES": PRINT 

13013 I N PUT M YC=" ; VC 

13014 INPUT " ZC~" ;ZC 
13020 K = O 

13030 K = K + 1: PRINT : PRINT "CERCLE NO ";K 

13040 L = L ■+■ 1 : N < 1 ) = 9 

13050 INPUT " ABCISSE ";XC 

13060 INPUT "RAYON ";R 

13070 FOR J = 1 TO 9 

13 OS O W = J -a- .7 8 5 

13090 XT(L,J> = XC 

13100 YT(L,J> = YC - R * COS (W):2T(L t J) = ZC ■+■ R * SI N ( W) 
13110 N EXT J 

13120 INPUT "UN AUTRE ?" ; R $■ 

13130 IF R* = "OUI" THEN 13030 

13 140 FOR 1=1 TO S 

13150 L = L + 1 : N <L) = K 

13160 FOR J = 1 TO K 

13 170 XT(L,J> = XT(L - K - I + J,I> 

13180 YT(L> J) = YT(L — K — I J*I) 

13190 ZT(L,J) » ZT(L — K — I -+■ J,I> 

1 3200 NE XT J 
13210 NE XT I 
13999 RETURN 



4% eJ: 4?>&1 L r ov- ^iZacsL £ owl. dx. ^ cLl 

y 4^-OJ^a^dlü^ ca ^ Q/JJL Ü X T f A*jla- Yy 0 "Z-T 
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K £ ' (Jr-cb- (JL Cj QaX$JL~ - L (avCAJ2>V)^^ &Jy^L~ 

- 6 ^^ c£e^J 2 J 2 - O- *£&. ^*h 0 3 ^ 0 \ (j 2 L CiE^Lci^^ -estffr Lk^\^q__ 

O^^U-Ar^âL 7 <?i 1 (TU- CAr^COJ2>VV^^^ £&L. L (^ U^ Ce d?fc C^O^<Q^j 

Ckûiïr^ $JK y \'ï>04'0 . 

£/vu -13 / P^5 £^~ ^ 3 >25 -£ 1 Ü^CiAAtL- y^ceÀr ^ 

tfUe CZajJjL^ (Jj^tUA^KSL . 

Pe. -€jX LL ^^ 4 ^o 2 _ 'i‘l y î'f / 0 (pr^ M Ux1j2_ ’ C^AuC^e_ 

y^^U-A ^Vvyv^ 6-1 U^W-G C/^éXgvU 2_ OC-to C^LV^.cl$jl_ . 

(^U.tfA^ u£<4 CGA,C^2A / C£-4 üe4^p^ 7 y^JV^f cA^2^ x JK -V^ 

-^Ga 11 c^cu/V\^A- . 

Gl ce AjiJljvJj^ AçQs^ Iavv T^ort^^^Po 5* 

^ <x JL^pik /àirvvMAe^ ce -Gcex. , lL^ -^a^j c(L-g 

AUAs K C£AX^i2A * 
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3c ^ cU djL ok>A . A^ 

^ 1-wW: -&4 c^tê,KiA_ t^JjL± . 6^^^ y ^ ^ 

A^-cÎA- ( cJU^jl /Oj^JUAtÜAO-, Os*-AbclLvw_ 'VuiajAL) 

oi ^C^ujj^XI crv^ A^'c^oJWw^ ■ A 4^4 

-4>ooop>v^^ b-cLfA Ar uw «bW ^aVjéU«e. 

aJUdA à 0^*4- 'Wii *£*_ RANG-RARtfE A/AVi GRAPHE. 

Ua C^<^M ^ O'x^u^Ul sirty^b C^ACkj&A CÀJL COUPLE,? obols^ 

*&0RT>éç : 



Lek Q\J\LLE A-C^VA- Ua^jL i^vûLCwJS- ^viU^L. 

L’^w^Mu COUPLES - SoRtés Su.g^ ow.^-^w, 

CW'-O-i^tfW^Æ. CUa. -^K&tliJjUAb' . 

A pu a w de forme ca.' u^a_ ^6 Auu. ^a_ 

c^A4vv^_. ^ n/A_ Ua^Ùv 'Vv^vv^>Aæ„ ofe - 








Ovv / / 02A a -C o-ido- cLo^ os^X^uxà 


14000 REM 
CHAINER COUPLES 


SMSiE DES POfAJTS CONSTITUANT 
LE" COUPLE K 


PA&RicATi'oN X>€S BûPOEES 


RABPtCATl'ûtf De L'e^JET SyHÈTRiaUt 

PAR Rapport au plan Xroz r 



14010 PRINT "COUPLES AXES SUR OX" 
1 40 2 0 K = O : L_ - O 

1 4030 tv = K ■+■ 1 : L_ = U -+- l:N(L) ~ 5 
14 0 5 0 PRINT " COUPLE NUMERO " ; K 
14070 PRINT "DONNEZ 5 PTS :" 

14 0 3 O FOR .J = 1 T O 5 

14 0 9 0 PRINT "POINT N U M E R O " ; J 
14100 INPUT 11 X = " , X T ( L # J ) 

14 105 INPUT "Y=";YT(L t J) 

14110 INPUT " Z = !l ;ZT(L,J) 

14120 N EXT J 

14 130 INPUT "UNE ERREUR? ";R$ 

14140 ÏFR£ = "OUI" THE N 14050 

14 2 3 0 INPUT "UN AUTRE C O U P L E Y 11 ; R 

14240 IF R Y = "OUI" THE M 14030 

14260 FOR I = 1 T O 5 

14270 !_=!„’+■ 1 : N (l_) - K 

14 2 ?: O FOR J - i T O K 

14 2 9 0 XT ( L f J ) = XT ( J f I ) 

14 3 0 0 Y T ( L * J > = Y T < J , I ) 

14310 ZT(LtJ) = ZT(JJ> 

143 20 IM EXT JY N EXT I 

14 3 3 1 FOR I - 1 T O K : FOR J = 1 T O 5 

1433 2 PRINT XT ( I , J > , Y T ( I , J ) t 2 T < I , J > 

14 3 3 3 N E XT J : N E XT I 
14334 GE T A* 

14340 G O S U B 3000 


14 3 50 FOR I = 1 TO K ■+■ 5 
14360 FOR J = 1 TO N(I> 
14 3 7 0 YT(1,J) = - Y T T , J ) 

1 4 3 8 0 N E XT J: N E XT I 
14 4 0 0 GO S U B 3 O C) O 
14999 RETURN 


X-A cx/^dr 

DBHi-COUPLE, 


Pe Tf pSB. *^400 ^ MB 4rrvww^ ^ cJLl ^icy^ 

Ü€- 'l A eu T'A 32^25 <yv^ cc-â <=>LlmA ■■ 



-iô2^ A/S fiûRDES 

Utw (SoSCB* 3 pipïpf ( VtTLO 

STôcx'&Q coi: 

^DEHl^COÛUÇ' 
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De <rv Ca -£a Cq^ ^o^-ifco 

"f* - *' -f-Q***- Y t o~z t (■&* vt(x,?)-u* - s (t(z / j) 



ÇAr cr ^ •ôtoc^ce. ce y\^^apC^ £ t^ j cl^' 


CTw. ^KAAa ^syv -6 ? q,>-A_ 

-^^«yvaM^^-e fAM6PAP-M E. 

<=U T-'S^AJC^ U>K CrC-^-f- 


hoReSAU PARMoûcEAU. 


-£yV 't^ruJ^" 


«Aæ. <=A^ c^vv^j^y^c Covv v,a_A>ccQ. 

{ PON/T 
QÜiUtF 

CO<S)ü£ BABORD AVAt^T 
COQUZ BABORD ARRIÈRE 
COQUB TRiSoRD AVANT 
COQUÊ TRiBûRP ARRiERE 



<o 


co Que Ba&ùSp Aftftièfte- 


cosoe BAfcORl» AVANT 

^(jQ. vt>^ : 



St ^ -6a. ^ct:^ cU-a^tr 4 l. 

-i^ftWr &*. y. T oz T j) &a- ^ 

CAJU^ ^ é&x^Jz J*. ^fujL *Ka&L,~U -^W*. <ju^u<.. 



^-^2 -?/^r ^ -C'K, /^mslaJ^I o^yXr tfL Wa^- -'Y^-Ola/^ St*5\cw^tZJj*^r£, __ 

<>|vJi//0(j cAtC / -&X £a^- cJj^ OU^Xr (AA— XXc^^i/yO-t^S. ^ t^cj - 

(y(je_ LV^ Crô-^rfr £*AA4rVtl CVA.' UAVJS- C(A4^yAN^^*^ 

OLSo-t-C Uja ^taicmi (9A-^0aaæa5L(-A_- 





tVvC. 


STOCKER 


UN OBJET 


cOf'CKC^KJ 1 - / C^y •dLQJw^£-»Xr ■esv'V' iam '^i.c^aûa^ . 


(jUaéXt^^ -£ <5*-«_ SAÎSi^ ^24^ / $ Êo^ 

cU STOCKER CST OBJET ^LKJ^ U*Ar^Q_ ^JL/y\ùJtjjL . 

-Ê£ ^rtr^ -^Jo 'Ub O|.\0 ^waM A- fêpïjZf -^_ nX^OA^y-^AX - *€aa TwCUv^rtA^^ 

cJj2^ CS2- cJX^a. - <^rô-^X l\j o U-A ^ <2>s\---'^^ ckxk^ 

PÔS djt £' APPLE ÏL/ W (yvXjve ^PiNJT ^ÎiUAA/K C?tx^ CjXKo^cXj2Aj£ 

= CH R ^ C ^ ^C^AA^_ 3^) A€a^ ÎAaXZV-'^^ r VwK 

(^5V7w^fi_ Uv^ i^V^AJl- d* LA r O^SUuA Cçv\m^ IAV\ ÛR^RH" D Û5 
V^M-^ -ÇjL 7>plç6fé/ Cx - O^XàA y Ô^\ CJL_ -sjr^OA^ 

At ù cJa&a^ -^LjL r V , ^O r ^X>^J^ L_ cl-JLr C-^a^MJ2ÀJ -^A^&L ^^cXaJ^-V N (T J 

{^C^XA- O^d A J? 'Vv v ^ v XtA4^ <?Lcl_ -''^^U\*jfcï ciew/) C_X <?^ OVJ2 C_XaLM^t< - 

Æ/L 




G ( 5 ^- ÛJj^ £^0 

1T(i, j) , zr(i,j) 


XT(i,j) 


3000 REM 


STOCKER UN OBJET 


3010 IMPUT “NOM DE L / 0BJET ,, ;0$ 

3020 D* = CHR* (13) + CRR* (-4) 

3030 PRINT D$"0PEN";0$ 

3040 PRINT D$" WRITE 11 ;OS 
3050 PR I NTL 
3060 POR 1=1 TO L 
3070 PRINT N ( I ) 

3 0 3 0 NE XT I 

3090 POR I = 1 T O L 

3100 POR J = 1 TO N (I> 

3110 PRINT XT(I t J): PRINT YT(I»J): PRINT ZT(I t J) 

3 120 N EXT J: N EXT I 

3130 PRINT D * ' ' CLOSE " ;0$ 

3999 RETURN 

4000 REM 


CHARGER UN OBJET 


CHARGEMENT OBJET 


4010 INPUT “NOM DE L'OBJET “;0* 

4020 D* = CH R * (13) -h CHRS (4) 

40 3 0 PRINT D * 1 ' O P E N “ ; O * 

4040 PRINT D*“READ“;0* 

40 5 0 INPUT L 
4060 POR 1=1 TO L 
4070 INPUT N (I) 

40 3 0 NEXT I 

4090 POR 1=1 TO L 

4100 POR J = 1 TO N (I ) 

4110 INPUT XT(I,J): INPUT YT(I t J): INPUT ZT(WJ) 

4120 N E XT J: N E XT I 

4130 PRINT D$"CLOSE";0$ 

4999 RETURN 





(jl. J cUcaJ: &A iW: | - cryJxjwA 

ll c^^£ % UN OBJ ET". 

\/ou| ov-4 Gçtvv^v^ûa^T 

MODiFiER UN OBJET 


5000 REM 

MODIFIER UN OBJET 


5 0 10 HOME 

5020 GO SU B 30000 

5030 FRINT : FRINT "OBJET DE " ; 1_ ; " CHAINES": FR INT 

5040 I M FUT " DON ME Z LTNDICE DE CHAINE ";I 

5050 INFUT "DONNEZ INDICE POINT SUR l_ A CHAINE " ; J 
5 O <6 O FRINT 

5070 INFUT "XT(I,J)-";XT(I t J): FRINT 

5030 INFUT "YT(IJ=";YT(I ( J): FRINT 

5090 INFUT " ZT(I* J) = " ; ZT (I » J): FRINT 

5100 INFUT "UN AUTRE POINT ";R$ 

5110 IF LEFTt <R*,1> = !! O" THE N 5040 
5120 GOSUB 3020 
5 9 9:=: EN D 
5999 RETURN 


46 



CRÉER UN ARC 
DE CERCLE 


4vlka crf-X^t 


(j \ju$ÂX. (A ' OA- C CtK-lHjL . (jzÜck. S)£ajX '1m* (JÜÂl ~&A 

C^AA>- gJI %ui <ÀHA (Xu&ldA e^SL (U^i-O^e. . - __ 

> 


AV. ^CtfU'V'^AÔ. CfiwtvQ, 

OM$s~ CjSajJ^l- (%€, ) 

gJr (Su 4e Cmpa^!m<x ^ 

^Uv£û <?/ ’o^xeA 


S 


ex 





1 OOO RE M 


CREATION ARC IDE CERCLE 


1 O 1 O 
10 15 
1020 
103 0 
1040 
105 0 
1030 
1070 
1 O 3 O 
1 090 
1095 
1 1 OO 
1 1 1 O 
1120 
1130 

1140 
1150 
116 0 
DI AN 
1170 
DI A N 
1 1 3 O 
190 
O O 
1 O 
220 
2 30 
2 35 
2 40 
125 0 
1260 
127 0 
1275 
1 2 3 O 
1290 
1300 
1 400 
14 10 
1 420 
199 9 


HOME 
VT AB 
HOME 
FRI NT 
INFUT 
I N F U T 
INFUT 
FRI NT 
FRI NT 
I N F U T 
INFUT 
I F C = 
IF C = 
I F C = 
FRI NT 


: FX = O : FV = 
1 5: HTAB 3 


O : F Z = O 


COORDONNEES CENTRE DU CERCLE": FRI N T 
XC=" ;XC 
Y C = 11 ; YC 
ZC = " ; ZC : FRI NT 

CERCLE D'AXE PARALLELE A: M : FRINT 
i-OX 2 — O Y 3-O Z" : FRINT 
VOTRE CHOIX ";C: FRINT 
RAYON DU CE RCLE ";R 

1 THE N FX = 1 

2 THE N F Y — j 

3 THE N F Z — 1 

“SE NS DE PARCOURS TRIGO HABITUEE": FRINT 


DON NEZ 
DON NEZ 
k- 3.1416 


THETA i ,DE GR E B : " ;T 1 
THETA 2,DE G R ES:" ;T2: FRINT 

13 0: REM CONVERSION DE GRE S/R A 


■* 3.1416 / 130: REM CONVERSION DE GRE S / R A. 

/ 3 


I N F U T 
INFUT 

Tl = Tl * 3.1416 / 

S 

T 2 — T 
S 

DT = (T2 -Tl) 

L = U -+- 1 : REM NOUVELLE CHAINE 
N < L ) = 9: REM 9 POINTS SUR LA CHAINE 
FOR K = O TO 3: REM CREATION ARC DE CERCLE 
CT = COS (Tl + DT K) : ST = SI N (Tl + DT K) 

REM LIGNES TRIGO DE THETA 
J = K + 1 

XC -+- (F Y -h FZ) -* CT R 
YC (FX * CT +■ FZ -* ST) * R 
ZC -+- (FX ■+■ F Y > -* ST -* R 


= 1 


XT(L, J) = 
YT(L, J) = 
ZT(L) J) - 
N EXT K 
FOR J 
XT(L* J? 
YT(L, JD 
ZT(L,J) 
FRI NT 
N EXT J 
GE T A$ 
RE TUR N 


TO 9 

INT (1000 * XT(L,J>>> 
INT (1000 ■# YT(LtJ») 
= ( INT (1000 ■* ZT(Lt J)>) 
XT (L t J) ,YT(L,J) t ZT(L, J) 


= ( 


/ 


/ 


1 OOO 
1 OO O 
1 O O O 


/v^ y] y\ / s] y s\ 4 Z fi (ywi jsdj[ -Ç«xHe. ois/) f~ L A Gy' 

Cfju^L coJlytf^aiM-UL e^oc djus 




La- 


C f oa-c JLsl (LQaJIsl 'tC&ui 
lAV^L CK UoJjLà j2 ^~ 

<£ f a C cAs— I cFet-w) 

i/ifrCsL . 

Mjl CAjUï*-- (j^> XT f YT r ’Z'J 

FZ - pj 

a fy~ a 



t, ÏY-'I s 


h-S 




£ tv (ÀjL. ^^VM) ^AjXvvn/^— (T'— oC(Æ -t 

^jçrtn**- Æut^y^jl 'ir^- cojfi jk. 'Tnrtw 'Uo^la&o V_c_ - 

i-o «"tao dALÊ/^îU^Gçc^ a'f' --&■. <2^:4^ J 

uA^tx Cvwl L^w GS~t A p 



fl&4>fy\joyA Cm^. MfM cGl "^4. ''A&- ^ W Ca^jWV-Ç. 

3_ HA M PU L£ R- U K/ OBJeT 

► 

/ >7TV^ -^a $0p 


17000 REM 

MANIPULER UN OBJET 


17010 

17020 

1 7030 

PR I NT 

17040 

17050 

T 

1 7 O A O 
17070 
1 7 O © O 
17090 
17 100 
17 110 
OO 

17999 


HOME 

PRINT " VOULE Z-VOUS:" : PRIIMT 

PRINT "1—OPERER UNE TRANSLATION DE L'OBJE T" : 

PRINT ”2—OPERER UNE ROTATION": PRINT 

PRINT "3—CREER LE SYMETRIQUE % UN PLAN": PRIN 

PRINT "4-FUSIONNER DEUX OBJETS": PRINT 
PRINT "5-HOMOTHETIE": PRINT 
PRI NT " 6-AF FI NITE " : PRINT 
PRINT "7-HOMOTOFIE": PRINT 
I N PU T "VOTRE CHOIX " ; C 

ON C GOSUB 1 9000,20000* 1 3 000*2 1000,22000 ,23000 *240 
RE TUR N 


D 0^^ (JL /JcW) vv-oZaaa-v gW ÙZJ^ *** 

ci Pc^UA. CjZ$ _ 

*4^ (T^Vl £?( 3 y JbbuSi~~ CLATbV^- U/A Q^tjôïÿ^r <^Kjl CU^£U> c^L^TIa^A^ 

£ru oa^C4oaa, &ù-Ôj2a> # 



Y 3 


Vûîoc t%u/d7 

/gAtyOwJç' 2 CA^A- XjSL a.'-6«V\ÿfc 

'mjM (yffLLf Y_ 


2 

f 

£ 


r 

f 

3 

2 

■Y 


o 


” 











- 



, 











































_ 

— 

— 

-44 

_ 

-L 


2* 


XT 



Y , ^ pa 


/ 


1 


W i> i M XT C3 jüJ /1) / Y T f 3 jz5/ f j /ZT 

2.p£=- c MdfC^ 

A/ (fUyQ tyv : <^"&4 CZA^ ^yCe- ciîÔKwf" (jZfài. <z^ïüt£ / -fa^tlciijw’f 

z^jaLN- -&. (ff T/ çz5 ^ / /VVvcu/1 'K^r*-^> aJ^Jl^A ~Îam 

^^l^gvIWNiA^ <^UÆ_ 02- (%7 —f>) XT — 52 y"Z-T = ) Axr^ OG>A>-f^î<SL 

XT-p ^, VT~ ^ • Y y Z T = ^3 £ C£ <^xaa.' -f-h+A 

/t&C^ <xv&c_ 4 a^j-4 cX 1 £*-Ûaaa.c<2- ^ ''à< i^cx^AA," 6vw o£-yzÂ / €4^ -£w Ta—^ 
\ms^ Àjl A*A ^ki\nJZ\ / V-£- 4wT <=6u- CLo-é’c -fs^ - 

O^^LArofÇw. . T> ^ cru- : 

^ ^ X T f? , -/J = ÇS. -J ■ YT (A / 't) - 0 .A : -Z= Ç* 

Z pi l=. y t:N(l)- < 3 ( /l/-e<-C|^ 4 v>a 'd* c^^JArÇ 

3 Ç2f foie J = 2, T ô 9 

4-jü Xr/4,7] = )2 t YT(I,T)= J- 4 •.-z-T (A 7)=/ 

?> A/fXT J 


CAf,ffccsV— «?X»- fû C^-f-O-OtA-ç^ 
Lw>0- ciAAfl-C-. c*. - C^^JTjl 
c^xkx Ara. aOe/ YT -0.-1 

YT^ Y 
YT = 2 


y 


YT - S* 



50 



Q/é fofi j. = 2s To 3 
î/6 Pfcfi J - -1 T o °) 
V/> *t (*/!)- 1 - <L 
‘tf n (i,7) = J'-'i 
WP zrfrj) =p 

l}p tiSXTJ: NEKT 2. 



dsiA C-fi'--ûùj/sjL4 (dJ^ C^Ü^OQS) Ca — £^-oW<aA . 


41/6 YT (40,1)^ ?.1 : YT('tp^) - P- 1 fi/i) ~ J# 

^3<£ M('fp) -3 ■- 1=3 
4*p Fog 3“c. Uo3 

ir^yT(i,i)-- J-^1 : yt(ij)=)s • > z t (i / t)^ 

/^exT J . 

Yrf 


y 

CAZ& 



z 3 r <s <p 


£ K^w. : 

Fû£ 1H1 TO 1? ; /V (1) 

p Fo/ej-^Tol 

1?^ )<T - 1-1 : YT(l / j)- l-1p '.’Z-T(3.,j)^jg 

Ipp Ne xr J : ^ XT 1 

OX l 'GÀt -F < 2(4 Yr — -i 1 v r = <? 

L -t^g^JAz. oWsjv-jl -&_ Ct_ o: 


/ 






."Z-T 



wé. ^ sô'fôS'ke^ 

Cl2/t j2/U_/^£aa— 

^Vt^c4 

6-RiLiet( Zf-Ï-P, 

Çulk^ oUa ca+JL- 


11P ?f?iNJt>4 "ÔP6M G-RÎLL £1 (9-^-?)" 

22p PpiNT V<f " VJ&iTE 6R\LLG *7 C4—^ 

^3 C6 PP i NJ T I 5* C <s*e 

2_(j. p fTQ pX^-ITo),? ( <jk -p cu4 /-*- 


2Çp PRiN T 3 

2-Cp NEXT i 
2 EO/2 I = <To ( ? 

Z8p FoP J r-lro^ 

zs\p fPîhJT XT(t,~j) 

Zpp P$ WT yT(^p) 

Zip PfctWT Z-T f r,T) 

S py A/P'X'TJ •. A/rpT X 

3^ as PRiUT T>£ u <X ô re SRlLLEl (l-l-py 

Z>9 <pE Nb 

A <* Wp ^ ^ ^6 <*. GRiLLE <L 

VP-écMGlÛhJ oLl ^WaAæA "£&■<] <=X^L_ 

Cj^JEjl <^jXtw4X 0^piÆ~ ( feôuG& ^/p & ) 



V&VvtjV-A _ £XaXOC œLt.A& aA - c ‘ cAjZ:_ 

MANIPULAT!OM VOBJfT. 


TRANSLATION 

19000 REM 

translation objet 


1 90 1 O 
1 9020 
19040 
19050 
19060 
19070 
1 9 O G: O 
19090 
19 1 OO 
19 110 
19 120 
19 130 
19 1 40 
1 9 150 
19 160 
19999 


HOME 

0-0 S LJ B 30000 

PRINT "DONNEZ VECTEUR T 
I 3M PUT *' DX= " ;DX 
I IM PUT " D Y = " ; D Y 
I N PUT " DZ=" ;UZ 
F OR 1=1 TO L 
FOR 3=1 TO N <I > 

XT(I f J) = XT(I,J) + DX 
YT(I,J) = YT(I,J) -m DY 
ZT(I,J) = ZT(I , J) -4- JJ z 
MEXT 3: NEXT I 
PRINT : PRIJMT "NOM OBJET 
I NPUT " ; o* 

GOSUB 3030 
RE TURN 


ranslation 


translate :■ 


PR I N T 


PR I N T 


cK^, . 




ROTATION 

2 0000 REM 
ROTATION OB3ET 


200 1 O 
20020 
20025 
20030 
20040 
20050 
20060 
20070 
20030 
2 0 9 9 9 


HOM E 
GOSUB 
PRI NT 
PRI NT 
PRI NT 
PRI NT 
PRINT 
I NPUT 


30000 


ROTATION AXE PARALLELE A:" 
1 -L'AXE OX : ROULIS": PRINT 

2- L'AXE OY : TANGAGE": PRINT 

3— L'AXE OZ : LACET": PRINT 
VOTRE CHOIX ";C 

ON C GOSUB 25000 *26000 #27000 
RE TUR N 


PR INT 








O. caw 4^a^f~XZ^~û^ ola_ 2yy^u^f~ 

AkJIa v- -£ (KtyQ— O Y r ( CKAÎX QV\ y y < 2 ^d .. , J 

JPfV^- O^ShlJjjJ^ (aVv^ IaA-\ £VX C 

qm üma£. c£je ^Ux^ô-ua^ <=>Le c&4 cl>v-^ 


^> 'WvA Ck |fv^AA^ (^Cj'lK*- ÛJJJ^ ~fj£ÀC) OV\Y^ 


Ka U2^ 


ROTATÎON/ autour 

t>'UN A%E PARALLÈLE 
A' L'AXE OX. 



2 5000 REM 
ROTATION AXE / / OX 


250 1 O 
2 5 0 2 0 
25030 
2 5 0 4 0 
25050 
25060 
25070 
2 5 O :E: O 
250 90 
2 5 10 0 
25110 


HOME 

P RI IM T "TRACE AXE DANS PLAN YOZ": PRIIMT 
I N P LJT " Y A= " ; Y A : PRINT : INPUT " Z A = " ; Z A; PRINT 
INPUT "ANGLE ,DE GR E S : " ; AR 
REM AR ANGLE DE ROULIS 
A R - AR *- 3.1416 / 13 0 
CR = COS ( A R > : S R = SIN CAR) 

FOR 1=1 TO L : FOR J = 1 TO N(I> 

Y1 = YT(ItJ) — YA ^ C^v^aa- °LO/\J2a-Ç_ 

ZI = ZT(I,J) - ZA- REM J 0 


2 5 12 0 
25 130 
25 1 40 
25 150 
25 1 60 
25 170 

2 5 1 8 O 
25999 


X2 = XI 

Y2 - Y 1 -h- CR - ZI * SR 

Z2 = Yi * SR + ZI * CR: 

XT<I»J) = X2 

YT (I ,J) = Y 2 Y A 

Z T < I ,.J ) = Z2 + ZA: REM 

NE XT J: NE XT I 
RETURN 


RE M 


j CTx— 

1 AJ2^UA_ ou*- O<fi U2-*Lç cle 
COtrV l \aj< Il e>-\^ 




rotation autour d 

raraulè - l£~ A OV 


26000 REM 
ROTATION AXE // OY 



260 1 O 
26020 
26030 
26040 
26050 
2 6 0 7 0 
26075 
26080 

26 1 OO 
2 6 1 1 O 
26 120 


26 1 40 
26 i 50 
26 1 60 
26 170 
26 180 
26190 


26200 

26999 


HOME 

FRINT “TRACE AXE O A N S PLAN X O Z " : PR I N T 
I N PUT "XA=";XA: FRINT : INPUT “ ZA = " ; Z A : FRINT 
IN PU T "AN GLE DEGRES “ - A 1 
Al = Al * 3.1416 / 1 3 O 
REM Al ANGLE DE TANGAGE 
CT = COS CA 1 ):ST = SIN CA1> 

FOR 1=1 TO L : FOR J = 1 TO NCI): REM 


XI 
V 1 
Z 1 


XT(ItJ) - 
YT CI , J) 
ZT(I f J) ~ 


XA 

ZA: RE M 


~l é&Si 




X2 = ZI # ST + XI * CT 
Y 2 = Y 1 

Z2 = Zi -* CT — XI -s- ST; 
XT(I f J) = X2 + XA 
YT(I,J) = Y 2 
ZT(I,J) = Z2 + ZA: REM 

N EXT J: N EXT I 
RE TUR N 



X /, YT, TJ - 


Rotation autour d’un axe' // A' o~l . 


2 7 0 0 0 R E M 


ROTATION AXE // OZ 


270 10 
27020 
27030 
27040 
27050 
27060 
27070 
2 7 0 :=: O 


HOME 

FRINT "TRACE AXE DANS PLAN XOY" : FRINT 
INPUT "XA = ";XA: FRINT : INPUT " Y A=“ ; Y A : FRINT 
INPUT " ANGLE ,DE GRE S: " ; AL 
AL = AL -«-3.1516 / ISO 
REM AL ANGLE DE LACET 
CL = COS CAL) : SL = SIN CAL) 

FOR 1=1 TO L: FOR J = 1 TO NCI): REM 


27090 

XI = XT CI , JX - 

- XA 

27 1 OO 

Y 1 - YT(I t J) 

- YA 

27110 

ZI = ZTCI,J>: 

REM 

2 7 12 0 

X2 = Xi CL 

— Y 1 

27 130 

Y2 = XI * SL 

+ Y 1 

27 1 40 

Z2 = Z 1 : RE M 


27 150 

XT(LJ) = X2 + XA 

27 160 

YT CI » J) = Y 2 

-t YA 

27 170 

ZT(ItJ) = Z 2 : 

REM 


7 

fiofrcMa^ 


SL 
-H- CL 


{hdc 






27 ISO N EXT J: N EXT I 
27999 RETURN 



(_X A, VA-/ p) 



X 



SYMÉTRiE PAR 

RAPPORT A UN PIAN 


A/o UU 1/C^ C04 J 

^jr-âU_ t/W^4 yjr^âu^ (i^^Oj 24 (Xcv 

"\JU^-ÊAJ2Aa Lq_ , ^ -- 


J^Ç\àa 'V^L 

^CtL^L f^A^^-4 ( Ca Uaa 

* 


1 :=; O O O REM 

BV METRIQUE % PLAN 


1 :=i O O 1 H O M E 

13005 F X = 0:FV = 0:FZ = O 

10006 G O S U B 30000 

10007 PRINT : PRINT "SYMETRIQUE PAR RAPPORT AU PLAN 
": PRINT : PRINT "1- 

2=0 PLAN XOV 11 - PRINT : PRINT "2“ Y=G PLAN XOZ": PRINT 
: PRINT “3- X= 

O PLAN Y02": PRINT : INPUT " VOTRE CHOIX ";C 
18 008 IF C = 1 THEN FZ - 1 

1 8009 IF C = 2 THEN F Y = 1 

18010 IF C=3 THEN FX = 1 

18011 FOR 1=1 TO L: FOR J = 1 T O NCI) 

13020 IF FX = 1 THEN XT(I ,J> = - XT (I> J) 

18022 IF FY = 1 THEN YT(I,J) = - YT(I»J) 

18024 IF FZ = 1 THEN 2T(I t J) = - ZT(I,J) 

10 0 3 0 NE XT J : N E XT I 

18035 PRINT 

10040 INPUT "NOM NOUVEL OBJET ";0$ 

10 050 GOSUB 3030 

10 0 0 9 IF C = 2 THEN FY = 1 

10999 RE TU R N 








FUSIONNER OBJETS 


q} e^t <yy-^A~t\ÀA ck û^za&a^ . J^u__ ^A 

\A^à^C£À . M^U.4 eAkkojsSkIA^ ! /j24 ^ -C^^JLAJ^ O^y^z^A <Asl ^AW&£tAp4/C 

/}t^aJc -Z/ûyvx (jô a. 3û C4*A'\NiÇS. iTo^^L^ cCeo-x _ /j£_ 

^3>4'tx^ ^L L y ^>^U4 aji4 Zjl 6-tfVv cÂ- dç_ Z- ^ cJl^sù^aA . 

U (^jM ctfyJS }< c$^LAA / y^ ^v^xMa ^Lom? -4-t 


Ly, + L r <C 7> 0 


1> üs^- 


21000 REM 
FUSION OBJETS 


2 10 10 
2 1020 
2 1030 
2 1035 
2 1040 
2 1042 
2 1050 
2 1060 
2 1 0 6 2 


HOME 

PRINT "FIN DE F U SI O N , T A PE Z LE MOT FIN": PRINT 
FRINT "PREMIER OBJET A FUSIONNER": PRINT 
QOSUB 30000 y 

I N PUT "NOM OBJET A FUSIONNER." ; O S-^- 

IF OS = "FIN" THE N 21500 
FRINT D$"0FEN"|0$ 

FRINT D$"RE AD" iO$ 

REM 


OPERATION DE FUSION 


2 1065 
2 1 070 
2 1030 
2 1 090 
2 1100 
2 1110 
2 1120 
2 1 130 
2 11 40 
2 115 0 
2 1155 
2 1160 
2 1500 
2 15 10 
2 1520 
2 1530 
2 1999 


■+■ LL 


-+- LL 


REM LL-NOM BRE DE CHAINES DU NOUVEL OBJET 
I N FUT LL 
FOR I = L 1 TO L 
INFUT N <I> 

N EXT I 

FOR I = L + 1 TO L 
FOR J = 1 TO NCI) 

I N PU T XT(I,J): INFUT YT<I,J): INFUT ZT(I,J) 

NE XT J: NE XT I 
PRINT DS" CLOSE" ;0$ 

L = L ■+■ LL 

GOTO 21040 ,_ 

REM FIN DE FUSION 
HOME 

FRINT : I N PUT "NOM DE L'OBJET GLOBAL ";OS 
GO S U B 3030 
RE TUR N 


4s 


■LDUc/e. cIa~ 
-Ça/iLe. Jjl 4 



<=v_ 


4-i 


7^ 


£)v <A ^-O^cXu <={c_ -4CtoFc_ . le\ ^\rCFüL cAst_ '6~Cr^‘^JL 

r \JLoXiX‘£o_ -^AAcju' ow "GuJéz. ci 1 -e. 'ç&yït" fIn" 

6' <?- djL .-/pjiA J 1 — 60 T /<AOotz, CK aJKl&^_ cA& A_C>WLa_ "Le- '^cJAuk. 

(Aÿy\ os*dr~ "ée_ çAisA f a F ' lua\ causi^ 

cLt_ A, ox/teJr MaJck -^A_e.X €aaJ/“ -Lv 


ecc^_ 




HOMOTHE TiE 


Vert CA (Mr^L C^ajl 1/*X 


CÂJL 


tf 


<P^ d*L^ U Ovv Ù&fdr. 


^xjJc cK aJs^d oaa_ CêAJTÆCT P # ^0/1ôT4f€ TfÇ C 

<£JLxaa- (XjjJ^&-~ XC y VC/ZC . 74 'Ÿ~o^t M 

CYT, Y l / ~Z. (J <jw •^^u/vA^l a-4*t>£xeA_ (M\_ 1 rtG^JûuA- <C M 


VT- XC - X/ 
VT- y<f = vy 
2f-ZC = 2 ( 


(y^ dj<3wju^ Cô£*fF('cl£K/T I)*ffôA’toTVÆTtÇ "HO 

ÉrX / Am vec-CüuM CM CTw -?T-t-^réCcoax.<M -CL cXêmtl 


-> 

C M 2. 



X Y *■ Ho 
Y Y *- Ho 
^ I ^ ff û 


0"U_ 


A 1 •H0 ~ 't -E ' idj^gJc -£dt . 1 ~~Loxa y 440 = - "1. 

laa^. syhéTRiç •/, c Ct 0 ^ Csm^c c). 

I* A oZfA/v^ç. <Xaa. ^ï-çr^-o —'y^A/v^vM— -€<jX .-'ûla-v—^—C tfi—^2ou2c_ <=»Xa_. CmjCCgCg. 


22000 REM 
HOMOTHETIE 


220 10 HOME 
22020 GOSUB 30000 

2^2040 P RI IM T "COORDONNEES CENTRE HOMOTHETIE": PRIN 

2 2050 IN PUT "XC=";XC 
22060 I N PUT " YC= " ; YC 
22070 I N PUT " ZC'=" ; Z C 

INt"° PRINT : INPUT "COEFFICIENT HOMOTHETIE ";HO: PR 

22090 FOR 1=1 TO C: FOR J = 1 T O N ( I ) : REM 

22100 XI = XT (I , J ) - XC 
22 110 VI = Y T ( I , J ) - VC 
22120 ZI = ZT(I f J) - ZC: REM 

22 130 X2 = XI -» HO 
22135 Y2 = Y1 * HO 
22 140 Z2 = ZI ■* HO: REM 


22145 XT(I t J) = X2 + XC 
22150 YT(I,J) = Y2 ■+■ YC 
22160 ZT(I,J) = Z2 + ZC: REM 


22 170 N EXT O: N E XT I 
22999 RETURN 




Arr/NiTE 


q^. Ua^-æl Hj <ZK CVW '^ r ^!û*A^ / 

Q\k^ &*. HAA— * C* (AA/v '*£/< £/v>^--'y-^£L_ -J2^% <^Ujzju^/^ 

0 O-/YVv^AA->V^ (3V/i X Ty V T" 



A/oto4 C^xÂaS^A ’X&.aJh. |e\_ ivv^e_ ■€ 0X7" 

Affala AF 4z, CoGFflCÎBNT V'AfFFiNlTÉ . 

AJ(P*A (xÂt<H+4 ‘1ÛAA S~f&*.ÛU_ YT '^>tA-. /4"F -V- V / 




£fk m. o - £ a."£ê a_ \p^~yy^t~ . SV "^<401^ 

*^^7 ^ W*j£c'<£<L^ 

LMr-£_ < X^^MA.i^ yjr-QA^ ï&^ÿyçi/f^ ^ IaAa, <^Ct 


2 3000 REM 
AF FI MITE 


23 0 10 HOME : 

23015 FX = O : F Y = Q:FZ = O 
23 02 0 GOSUB 30 0 00 

23060 PR I IM T "1- X= O PLAN Y O Z " : PRINT 

23070 PRINT "2- Y=0 PLAN XOZ": PRINT 

23030 PRINT "3- Z = O PLAN XOY" : PRINT 

23090 INF'UT "VOTRE CHOIX "iC 

23100 IF C = 1 THE N FX - 1 

23110 IF C = 2 THE IM F Y = 1 

23120 IF C = 3 THE N F Z = 1 

23 125 PRINT : IN PUT "COE F A F F I N I TE " ; A F : PRINT 

23130 FOR 1=1 TO L : FOR J = 1 TO N ( I > : REM 

23140 IF F X = i THE N XT<I,J> = A F ■» XT <1 ,J) 

23150 IF FY = 1 THE N YT(I t J> = AF * YT(I f J> 

23160 IF F Z = 1 THE N ZT<I,J> = A F * ZT(I ( J): REM 

23 170 N EXT J - N EXT I 
2 3999 RE TU R N 


frw "Inp^ «^CA 6^ ^Lsl CxXÏjü\j3^<^^ 


dÀjL- *4^ syY^x>\»^ ^\aajlUq\_ 

-e^ov Vv-^UA^^JÇU^^ Im\ L^' 

Iayv2_ . £U^_ aa^«3la^7 j & 






00 


\Mr^t^ "Ôt><54^ UA/^éL •^US^ÆCJL - JlCU\- &)C UsV^JL. ^UA^Ci CJL 



cUf'^L 



IjZ- JjzAç^-Â r ^vïrUM^ C&tfc£ (Çfî iLLb- 

ot/L. 


/ y^rL<A 



( y ^ ''j'MîWVVÉ^^ _ ckjL- ^2_ C<TYv^A/A~iZ OZ^Ca^ y -£'K_ 


OJLO^ÙA&As^ir U^W€__ MôHoTôPiÊ , Crw '\jzgJu_ cgJsLç 


#(j2-^\$\/a^<CZz^ ck&M js^JZcX^a rw~<S c*~*^ c-^oçrt^ ^ CtyT, ôYT~/ ô ~~ZST 'j 

Suyj^Ÿ^ cettjl (P^çuû^Q AcnJ~ "Cl, ^vS" 2* =^ . Cru ya. 

u-vnj2_ £Uf?&PAiS«S*C (JIÇ Je^rw^ & dt , Gsffe 

4 €?<êAccAj^ Ae-Cp*^ O’Z-T , 4 ^ 0 . ov\^^lon^J^_ .e-w O t 
^P Uv-^-A 4 ^?— iyvyv-^v^^ CA_Ok. y &in_ y (Xtv ~^-cc/v_ c^ 0rr\o4-UAj^ 

éjCsJZ, G (JV 6 £L OZT. T?^<5Vs_A ^ UjZ_ 


^uRFAcr z>r gauss •. 



« 



SxpJc Ÿ ^ ck. ^ D"21T 

f = J/XT 2 ^ y T 7 -" 

£XVw Uy^c^ 


'V'SA'^ 




4 (*T,Yz) = A (- f z /z & z ) 

•\r At’sux^ <£tpV_*V02_ KT\ Cjzj^ 'tjCcj <—^ 

i A s&c\_c*^_ ^ ’Yv^^lx^ t ^yw o 

( -£ k^< e. o xt) . 

JE (TU^ IM^Z- r voay^-€. \cJlü juj ^ &Ul 7 A . o^M ouA^v^ : 



24000 REM 
HOM OTOPIE 


240 1 O 
2 4020 
2 4052 
X 

2 4 0 5 4 
24060 
24070 
2 40J O 
24090 

24092 

24093 

24094 
24 i OO 


FX = O : F Y = O : F Z = O 
GOSUE 3 0 000 

FRINT : INPUT "AMPLITUDE DEFORMATION 11 ; A - FRIN 

INPUT "LARGEUR DEFORMATION ‘';B: PRINT 

FRINT i—SELON OX” : PRINT 

PRINT M 2 —SE LO N OY": PRINT 

PRINT "3-SELON O Z" : PRINT 

INPUT " VOTRE CHOIX 11 ;C: FRINT 

IF C = 1 THEN FX = 1 

IF C = 2 THEN FY = 1 

IF 0 = 3 THEN FZ = 1 

FOR 1=1 TO L_ : FOR J = 1 TO N (I) : REM 


24110 XI = XT(I,J);Y1 = Y T (I » J ) : Z 1 = ZT(I f J) 

2 4140 R 2 = < F X. ■+• F Y ) * ZI *■ ZI ■+■ (FX + F Z) * Y1 ■» Y1 ■+■ (FZ «+■ F Y 
) * XI * X 
1 

2415 0 H = A -* ( EXP ( - (R 2 / <2 *- B * B) >) > : REM 


24 160 
24 170 
24 180 
2 42 2 0 
24999 


XT (I » J) = XT(I,J) + FX * H 
Y T < I , J) = YT(I,J> ■+■ FY ■* H 
ZT (I f J ) = ZT(I f J) FZ -«- H 
N EXT J: N EXT I 
RE TUR N 




5 r V\^ sfaru .y / CAjuèJ^ <Â£à c^r^x/^Jj^ t£ç_ 

<-M / -£ r ^A^GLCJ2-. . T <^LTU e^>C 6VW|A. 

e "T^vAmjv^ ■€ Cxoæ 0'2L'T,T'M OX'Vv*-^*-''^ ^Cl 

L r^lw^Jku ^6c_ Cétfct T^V^rv^ B CxslNuc^c^ÂJ cit^o^ 

&Lç_ 'C&ù <^rtyx<st^^ 7 Y7~("r, J ) 

(Xjr^ûY^Xv^ li/f^ü. /Lot^L^ aLçtVv^ oL^^r~ •£ «s?^ Ù\-Cuc£~ -Q^^_ 

V\^crt--A<4 0w^ / CLu^ ''^■U/l. ^ X^\o4-<^Aje_ <=^lauz_ *"*? <5V\_ XI <2-^ 

£ { &^xe~ & ^2JT ^ *^4^ ~&x 'Zsr^Y^-*— ^w 


Tiff) =TM ^-(f l /z^J 


^Un!C f = 1/ XT 2 4 VT 2 

(_£. -^A<5i^A.Æ4YvV>^C- -K f ~^~~éL4 <s_ . ^e 

^HuZ^c^ £j£a. >4^ 4^vo-T dU_ ce_ <^uW ^ -«Xl «s-^i-jcv. 


FiCHiERS BLOCS 


^ cru>- -^ÆI^AA^aXa_. <?(&<} (2-^a^ï 7 <ü 4tC^of <?( 1 uXl^Cie^ X2-4 
o -uXjJLh -T A je-X^XM T eT o<j2_ -^<j -e^cz^wi^X 

CA&ex -e^ - ,4*-*vctAJUV4i/( r X . 

^{OM X- ■'^<-M'MJ v '~ £X 4^4 ^vX«4 , (TW «3w 4rt^_ (^LA-CL- "02- 
V- 6<îV\—Ç/CX. -*ÿ^Ç!t(J >— 4V s 'Æx^WjA/X^JlL<''*- ^'Cû-'l c2-fl'"W''-y / L^4€4 

dsL. *p£uA ds>_ 3 00 " • 

dG^a_ -fr-^X/vG^ ? 

CoA CT^e^4 «'K v *-X <^0dtZ/fM24 ^ £Ti 'tvcTtë-i -^^v. CMv (MZt\Z -yU/O 

n^fUA CK^jr-tioM0«A PAK/6£AP4/€~ DÇ^SlbJ Q^~~ éfuju^ '>\J2_ 

-^ASW^a- _, -6ou. (Xu^fyi y <^J2-W 3 D o ^O^v^WtT A LA t^O I $ . 


63 



^a^AjZA, <£>(_a4 &L ' (rô-£e^£l / < y^^VhJZ4 càslctuAj^ 

cAjx <Xi2<, -^Ji/^siM, 0L>u' ffV <Xsj*ÿ~eJjeÆA. BLûd^ D OBJf ^ 

fiCUiCRS gtCC. 

é ( ±1 ^e/vsv-^r -^o/ <slfl- ££~ -^cQvjïa_ . 



chsfc d&o ~^y*'<j&JlA4 cÂsl 7yi c$\ÂjlaA .. ■ 


2SOOO REM 

CREATION D'UN FICHIER BLOC 


O 1 O HOME 
020 INPUT • 

030 FOR I = 

040 PRINT 1 
050 I 1MPUT 
0 6 0 NE XT I 
0 7 0 I N PUT 
0 3 0 PRINT 
090 PRINT 
ÎOO PRINT 
1 1 O FOR 1=1 TO 
120 PRINT ELS(I> 

130 IME XT I 

140 PRINT D$"CLOSE 

999 RETURN 


DOBJETS " ; E 


NOM ERE 
1 TO E 

"OBJET NUMERO " 
E L$ (I> : PR I NT 

"NOM DE CE BLOC 
DS" OPE N" ;BL$ 
D$"WRITE , ’;BLt 
E 

E 


;BL$ 


;I 


BL$: P R I N T 


& 'k~ XA^Ai^AA^ 


29000 REM 

LECTURE FICHIER BLOC 


2 9005 
290 10 
29020 
2 9 0 3 0 
29040 
2 9 0 5 O 
29060 
290 65 
29070 
2 9 0 3 O 
000 : N 
29999 


NOM 


HOME : I N PU T 
DS = CH R S (13) + CHRS 
PRINT DS" OPE N" ; BLS 
PRINT DS"READ";BLS 
I N PUT E 
FOR 1=1 TO E 
I N PUT E LS (I) 

N E XT I 

PRINT DS" CLOSE " ;BLS 
FOR I = 1 T O E: PRINT 
E XT TT 
RETURN 


DU BLOC 

(4) 


; BLS : PRINT 



ELS<I>: N E XT 


FOR TT - 1 TO 2 
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hjCfaA O-AnsvA orw_ j 0 y E ^ / S - 2. C*s vwv^wf“ -Q^c^^oCams^ 



\Mr4- 'V-tr u -Û O-^ry^fô. A^V-d <Ç-R{L~l~E • é'u. 

-^£4 4^HM (yŸ^Tov—i *Aja-^-Vv^ o. U/a. -fJl&^ / 
-^a^Ua^ûI\j2j^Cc CAjU^SAv^L^-AT Uaa /î-c£ ^a^oC^-C, 
cUMm a. Gl-- cc^vhii : 


CTVV 


A^T 



(x^“ jzaa^Cvv^-4— -yf^r^AA-e^ .efcë. -^<3i/u t/A- —|j0 ^aRjlk. cju flv 

"BLOC GRU-LE ($£/<&/0) 4 ^ 

OÜaA^AQ^ £2J/U*_^-t_ {fil -GV^ O- E CfAA CVCv~£ - T~ ! O^^A. CJrCt-A /J'Ca.O^ 

{^vjT(a^a-c^ <?(&4 âwa>fce_ ^J-QYf\rAJüütà 


6R\UL£1 
&R[ l~U& 2. 

G-Riu^ETJ 

&R\i-i~tr4- 


0U Ooüfccx. <9 y-*- *&- -"jb o twf - ( $ / $$/ J&) 

r V^- * ô-^&X^E&Adr ''P'^-A C<_ C o J c~ AaaAt&AAj — 

G». <^(A-À Sÿ~JLrJvr4ÀX Aol ^ (( P&ZSER ÆU 

TR^^C M ^ -<^£oc <yCJl(ji -QAjK ^â^oî_AfÛA^J^ 

^We. 02 . 


U ''^WA'lç, (j-p-jEÙti 

G*T'a-|ayOua <ÿ(^_ Oa^aaa/ 0 -\£u ^4 CU aJsEL} A.aUtù . hcuu, 
AAAA.i^W'^ '^~vAjî_ ^A)Cyj^~6^cRyùo^_ 


YY^yU-A 




(jis ''V'vJL- ^ 0-02__ cLæ^ CAJZQAsJ 

dsL-, o^-ÿ&ï -eJs cLç_ ys^ylo^ ckiujZtji^ ~f4t<_ (^Ur^c. yz 'Vtot^d 

'^ôOul-X - l/A^. -^^Co <^AA>VWVt^2- . 

iH_£ui^ La /kc^mtw PARAPHE OÇJ^T" 

4-1 /Uv-^Wawé: d^,(A-û- 'Vv Q-v^a ''K. f sfr^ü a-A^ty .—- 

^ p, ^V-^^CJ 2 _ "^CL 'VK^YVmXA-J 2 -_ die £~ 1 A^Ÿ~^-Q^ . (( y C^ictA^-A 

-f y K . 

L&. y^ydXds^- 'V®- c<5^-^-ôcit^v £x y~<-&, c&a^_ (d&A*-o PAMPP ÆPHùl 
0% t \Ç~X / d&A o^XT(jo-î3 AiUjias) IM Péirp^cu^ 

i M / ^'- aa (d-*^dy<^j^oMII^i u_G-^v —QjwM pÆ/if &- IPAPHI 

”0 €" S S "f M y o-^VA4_ £ -Ç^jjd~ eS’fc-O [a^LIi 

*0 &AV| 'Vmt^<3 —0— 'Ij~^ O A 

-'&-<> cfp^I- (r*4 -Paqs2<7 £x F/t/V6^4^f/F ieSS(KJ Ai2 ^v- 

"t^JL'V'd • <^A/—*- CO^f J £^- OOV^-Ç^ 

AM^\Æi\(SL - iÂ-<X^^j€ÀJc . 

ÇioAMAt^iUL. : Aj2àaJ\~ ~ (jv— 6<jvt4 

£?{ 1 (/A^ ca. O^aIJjk~ s_ ? tfW / ^ 

^ ' (iXLliM^ Ua^ -l^a.c^w^e 

C-HAWl. 

£"l\ iW^ "£o ^Vvj3LAaMAa—c ® ^ 

xV^- "C»- M A%n*& / IHJUaî -^-^A_Are^ 

CH Ai KJ aHa-v Anrû^z- £>(jlx> [^-eJJsL cLa. ix a^-o^-Æ , C&. ' >< - c j 

{kOm^^ÙaJM ôdjïpA : 


40000 REM 

CHAIN PANGRAPHE DESSIN 


GG 


40010 PRINT D$"BLOADCHAI N ,A520" 
40020 CALL 520”PANGRAPHE DESSIN 



Te wfe CMa- ^^4 AjL- ^ AKT^-^'^rd^ 


30000 REM 

L'OBJET EST-IL EM MEMOIRE? 


30010 PRINT : I M FUT "L'OBJET EST —IL EM MEMOIRE ? ";R$: 
FRI NT 

30020 IF LEFT* <R*,i> = "O" THE M 30999 
30030 IM FUT "NOM DE L'OBJET: ";0*: FRIMT 
30040 GOSUB 4020 
30999 RETURM 



'F r> 


Æ"U. C Cc_ L A & S* 

Ç-l <jw Uarv^''-^^ læ—- Ru M p/\ K/£? R A PPft- OfëJP~T 

(_W -£a!<^v^l 1- -^2^ 6vj2o^C^w_ cljLA -£^ 

--62^ -^^c$r^SU^ <p{_>> ^Crl/ujêâ XT, YT'/Z-'T C&_ 

(X^jçS'-A . 

£rw o^j^a <^>U5ua-<) PA'A/G-R/^PWt 

/K flw chic^JU^cJ^^ ~^sl- t\o^^ 

PAÀJ(yfRArPHfT - DÉPSSTfM 

^j^c^r^LA . Lfi- *F~ X) &(jl~ *^^uo ^ (JW P 

\yUTW. ^J2 J!sLc£xÜ<J^ cLj^ "b f Pt 7 toO £>6 Or^A <^^J2A- 

b/ £- DEJA ^ 

^AaM^ 1(^0 O-'WrO-^Q -^vOa^c^^ 

—6^--^ /^t>Lv. - -^yw -^zrtc4 . 

A\j^^e <?(_£, ŸAN(r@Æ?HE~ J)¥ S^ N/ ^ ' / L£w>6^ 

C^k_ £^p^<w'6iL y o^v^Ÿ^à: 

cKk+~ PAAT6^^^Pch^fc ôfëJÎT ~T. 





PANGRAPHE OBJET 


O IF FD = 1 THE N 5 

1 L = O: REM PANGRAPHE OBJET 7 /2/34 

2 DIM XT(30,9),YT(30,9) JT(30,9) t X(30 f 9) f Y(30,9),N(30):FD = 1 

3 DS = CHR$ (13) ■+■ CHRS (4) 

5 TE XT : HOME 

6 IF C < O THEN 310 
1 O HOME 

20 REM 

PROGRAMME M E M U 


3 0 VT AE 15: HT AB 15 
AO PRIMT "VOULEZ-VOUS:" 

5 0 FOR TE = 1 TO 50 0: N E XT 

6 0 HOME 

7 0 P RI N T 

3 0 VT A B 3: H T A B 2 6: PR I N T 11 P AM GRAPHE OBJET” 

90 VT A B 1 

100 PRINT " i-CREER UN OBJET” 
llO PRINT " 2—STOCKE R UN OBJET” 

120 PRINT ”3 — CHARGER UN OBJET” 

130 PRINT ” A —COM PLE TE R UN OBJET" 

140 PRINT ”5 — MODIFIER UN OBJET” 

150 PRINT ”6 — (REPRESE NTER UN OBJET)” 

160 PRINT ”7 —(STOCKER UNE IMAGE)” 

170 PRINT ” 3- (CH A R GE R UNE IMAGE)” 

130 PRINT ”9—MANIPULE R UN OBJET” 

190 PRINT "ÎO— DEFINIR UN BLOC D'OBJETS” 

200 PRINT ” 1 1 -CONSULTE R UN FICHIER BLOC” 

2 10 P R I NT ” 1 2-” 

2 20 PRINT ”13-” 

230 PRI NT ” 1 4--” 

240 PRI NT ”15-” 

250 PRI NT "16 -” 

260 PRINT ” 17-AF FICHER LE CATALOGUE” 

270 PRINT ”13—SORTIR DU PROGRAMME” 

230 I N PUT “VOTRE CHOIX ”;C 

290 IF C — 17 THEN PRINT DS” C ATALQG” : GE T AS: GE T AS 

3 0 0 IF C = 13 THEN E M D 

310 ON C GOSUB 2000*3000,4000*2010,5000*40000*40000*4000 
0*17000,2 3 000*29 
OOO 

999 GOTO lO 
1 000 REM 

CREATION ARC DE CERCLE 


ÎOIO HOME : F X = 0:FY - 0:FZ = O 
10 15 VT AB 15: HT A B 3 
1020 HOM E 

1030 PRINT "COORDONNEES CENTRE DU CERCLE”: PRINT 

1040 I NPUT ” XC=” ;XC 

1050 I NPUT ”YC = " ; Y C 

1060 I N PUT " ZC — ” ; ZC : PRINT 

10 70 PRINT “CERCLE D'AXE PARALLELE A:": PRINT 
1030 PRINT "1—OX 2—OY 3-OZ": PRINT 

1090 I N PUT “VOTRE CHOIX ”;C: PRINT 
1095 I N PUT “RAYON DU CERCLE ” ; R 

11 O O I F C = 1 THE N F X = 1 

1 1 1 O IF C = 2 THEN FY — 1 

112 0 IF C - 3 THEN FZ = 1 

1130 PRINT "SENS DE PARCOURS TRIGO HABITUEL”: PRI NT 

1140 I NPUT "DONNEZ THETA 1 ,DEGRES:” ;Ti 

1150 I NPUT "DONNEZ THETA 2 *DE GR E S : " ; T 2 : PRINT 

1160 Tl = Tl 3.1416 / 13 0: REM CONVERSION DE GRE S/R A 

DI ANS 

1170 T2 = T2 * 3.1416 / 130: REM CONVERSION DEGRES/RA 
DI ANS 

1 1 3 O DT = (T 2 - Tl) / 3 

1190 L = L -+• 1 : REM NOUVELLE CHAINE 
1200 N (L) = 9: REM 9 POINTS SUR LA CHAINE 
1210 FOR K = O TO 3: REM CREATION ARC DE CERCLE 
1220 CT = COS (Tl ■+• DT K) : ST = SI N (Tl + DT * K) 

1230 REM LIGNES TRIGO DE THETA 

1235 J = K + i " 

£8 





1240 XT(L*J) = XC ■+■ (FV + F Z) ■» CT -*■ R 
1250 YT(L,J) - YC -+- (FX * CT -+- FZ * ST) 
1260 ZT(L,J) = ZC ■+■ (FX -f FY) *■ ST R 
12 7 0 NE XT K 
1275 FOR J = 1 TO 7 

12 3 0 XT (L* J) = ( INT (ÎOOO *- XT(L,J>>) / 
1270 YT(L,J) = ( INT (lOOO YT(L,J>)) / 
1300 ZT (L , J) = ( INT (lOOO * ZT(L,J))) / 
1400 PRINT XT(L, J) ,YT(L,J) t ZT(L, J) 

14 10 NE XT J 
1420 GE T A$ 

1997 RETURN 
2000 REM 


* R 


lOOO 
lOOO 
i O O O 


CREER UN OBJET 


2005 ROME :T_ = O 

2010 HOME : : PRINT " VOUEE Z- VOUS : : " : PRINT 
2020 PRINT " 1—CREER DES CHAINES" 

2030 PRINT " 2—POI NTILLE R DES SEGMENTS" 

2040 PRINT "3 —CREER UN CERCLE" 

2050 PRINT "4 — CHAINER DES CERCLES" 

2060 PRINT "5—CHAINER DES COUPLES" 

2070 PRINT "6—CREER UN ARC DE CERCLE": PRINT 
2100 I N PUT "VOTRE CHOIX " ;C 

2 110 ON C GOSUB 10000,11000,12000,13000,14000,1000 

2999 RETURN 

3000 REM 

STOCKER UN OBJET 


3010 I N PU T "NOM DE L'OBJE T" iO$ 

3020 DS = CHRS (13) -+- C H R S (4) 

3030 PRINT D$"OPEN";ü$ 

3040 PRINT DS" WRITE " ;0$ 

3050 PR I NTL 
3060 FOR 1=1 TO L 
3070 P R I NT N (I > 

3080 NE XT I 

3090 FOR 1=1 TO L 

3100 FOR J = 1 TO N (I ) 

3110 PRINT XT(I, J): PRINT YT(I,J): PRINT ZT(I 

3 120 N EXT J: N EXT I 

3130 PRINT DS" CLOSE " ; OS 

3999 RETURN 

4000 REM 


J) 


CHARGEMENT OBJET 


4010 INPUT "NOM DE L'OBJET " ; OS 
4020 DS = CHRS (13) h- CHRS (4) 

4030 PRINT DS" OPE N" ;OS 
4040 PRINT DS " RE AD" ; OS 
4050 INPUT L 
4060 FOR 1=1 TO L 
4070 I N P U T N (I) 

40 80 NE XT I 

4090 FOR 1 = 1 TO L 

4100 FOR J = 1 TO N ( I ) 

4110 INPUT XT(I,J): INPUT YT(I, J): INPUT ZT(I,J) 

4120 N E XT J: N E XT I 

4130 PRINT DS" CLOSE " ;OS 

4999 RETURN 

5 000 GOSUB 2 0 00 

5999 RETURM 

1 0000 REM 

CREATION DE CHAINES 


1 0040 
1 0050 
1 0060 
1 0070 
10 0 3 0 
10090 
1 O 1 OO 
1 O 1 1 O 
10 120 
10 13 0 
ÎOI 40 
10 150 
10 16 0 
10 170 
10999 


L — L ■+■ 1 


INPUT "NOMBRE DE POINTS"' 
J = O 
J = J *+* 1 

PRINT "POINT NO ";J 
INPUT "XT=" ; XT (L ,J) 

INPUT "YT = " ;YT(L,J) 

INPUT " ZT=" ;ZT(L, J) 

IF J = N(L> THEN 10 140 
GOTO 10070 

INPUT "UNE ERRE U R ? " ;RS 
IF LEFTS (R S , 1 ) = "O” THEN 1 
INPUT "UNE AUTRE CHAINE? 
IF LEFTS (R$ t l) = "O" THEN 1 
RETURN 


" ; N (L) 


0050 
" ; R S 
0040 



liOOO REM 


FOI N TILLE R LJN SEGMENT 


liOlO L = L -+• i : N < L > = 5 

1 1020 FRINT "DEBUT DU SEGMENT " 

1 1030 INFUT " X= " ; XD 
11040 INFUT "Y = ";YD 
11050 INFUT "Z=";ZD 

11060 FRINT "FIN DU SEGMENT" 

1 107 0 INF U T "X=";XF 
11080 INFUT "Y=";YF 
1 1090 INFUT '‘Z-";ZF 
1 1 100 FOR W = 1 TO 5 

111 ÎO XT(L t W) = XD (XF — XD) * (W — 1) / 4 
11120 YT(L,W) - YD ■+■ (Y F — YD) ^ (W — 1) / 4 
1 1 130 Z T (L, W) = ZD + (ZF - ZD) * (W - 1 ) / 4 
111 40 NE XT W 
1 199 9 RETURN 
12000 REM 

CREATION D'UN CERCLE 


12 0 10 NOM E 

12015 FRINT "CENTRE DU CERCLE:": FRINT 
12020 FRINT : INFUT "XC = ";XC 
120 30 INFUT "Y C= " ; Y O 
12040 I N PUT "ZC=";ZC 

12050 FRINT : INFUT "AZIMUT AXE " ; A X 
12060 AX = AX * 3.1416 / 13O 

120 6 5 FRINT : IN FUT "ANGLE DE SITE AXE:"; SI 

12066 SI ^ SI * 3.1416 / 180 

12070 FRINT : INFUT "RAYON ";R 

12030 CA = COS (A X) : S A = SI N < AX) 

12 0 3 5 Cb = COS < SI ) : S B = SIN <SI ) 

12090 L = L + 1 
12 10 0 N < L ) = 9 
12110 UT = O 

12 12 0 J = J" ■+■ 1 : W = (J — 1 > .735 / 2 

12130 XO - O : Y O = - R -h- COS ( W) : ZO = R -* SIN (W) 

12 132 XI = - Z O * SS +■ XO *■ CS 

12 133 Y 1 - YO 

12 134 ZI = ZO * CS + XO <r SS 

12 140 XT(L>J) = XI -8- CA — Yl 8- SA -+- XC 

12150 YT(L* J) = XI ■«- SA» -+- Yl -8- CA -+■ YC‘ 

12160 ZT(L,J) = Zl + ZC 

12 17 0 IF C - 9 THEN 12 19 0 

12 130 GOTO 12 120 

12 190 L = L -+- 1 

12200 N (L) = 9 

12 2 10 J = o 

12 2 2 0 J ~ J 1:07= CJ — 1) -s- .785 / 2 

1^.230 XO = O : YO - “ R * COS < W) : ZO — — R -8- SIN < W) 

12 232 XI = — ZO * SB -+■ XO -8- CS 

12233 Yl = YO 

12 234 ZI = ZO -* CS -+■ XO -* SS 

12240 XT(LtJ) = XI * CA — Yl SA ■+■ XC 

12 250 YT(L,J) = XI * SA + Yl -8- CA -+- YC 

12260 ZT(L,J) = ZI + ZC 

122 70 IF J = 9 THEN 12999 

122 30 GOTO 122 20 

12 999 RETURN 

13000 RE M 

CHAINAGE DE CERCLES 


13010 HOME : FRINT "CERCLES COAXIAUX // OX" 

13012 FRINT : PRINT "AXE DES CERCLES": FRINT 

13013 INPUT " Y C= " ; Y C 

13014 INFUT " ZC= " ; ZC 
13020 K = O 

13030 K = K -h 1: FRINT : FRINT "CERCLE NO "'K 

13040 L - L 1 : N (L) = 9 

13050 IIMFUT "ABCISSE ";XC 

13060 INFUT "RAYON ";R 

13 0 70 FOR J — 1 TO 9 

13 0 3 0 W = J -8- .7 8 5 

13090 XT (L, J) = XC 

13100 YT(L*J) = YC - R * COS <W)-ZT(L,J) = ZC + R * SIN <W) 
13 110 NE XT -J 

1312 0 INFUT "UN AUTRE 9 " ; R * 

13130 IF RS = "OUI" THEN 13030 
13 140 FOR 1=1 TO 3 
13150 L = L -h 1:N<L> = K 
13160 FOR J = 1 TO K 
13170 XT(L,J) = XT ( L - K — I ■+■ J *1) 

13130 Y T < L, J ) = YT <L - K - I + J,i> 

13190 ZT(L,J) = ZT(L - K — I -t- CT f I > 

1 3200 NE XT J 
13210 NE XT I 
13999 RETURN 


?o 



1 *4000 REM 


CHAINER COUPLES 


1 4-0 i O 
1 4020 
1 4030 
14050 
1 4070 
1 40 5:0 
1 4090 
14 1 OO 
14 1 05 
14 110 
14 120 
14 130 
14 1 40 
14 2 3 0 
1 4240 
1 4260 
1 4270 
1 42 3 0 
1 4270 
1 4300 
143 10 
1 43 2 0 
1 433 1 
1 4332 

14333 

14334 
1 4340 
14350 
1 4360 
14370 
1 4380 
1 4400 
147 79 
1 7000 


FRIMT "COUPLES AXES SUR OX" 

K = 0:L = 0 

K = K -t- 1 : L - L 1:N<L) = 5 
PRINT "COUPLE NUMERO ";K 
PRINT "DONNEZ 5 PTS 
F OR 0-1 TO 5 

PRINT "POINT NUMERO " ; J 
I N PUT " X= " ; XT <L > J) 

I N PUT " Y = " :YT(L* J) 

INPUT " Z*" ; ZTCL, J) 

N E XT J 

INPUT "UNE ERREUR? ";R$ 

IF R $ = "OUI" THE N 14050 
INPUT "UN AUTRE COUPLE ?";R$ 
IF R$> - "OUI" THEN 14030 
F OR 1=1 TO 5 
L = L -h 1 : N <L> - K 
F OR 0=1 TO K 
XT (L * O) = XT (0*1) 

YTCLtO) = Y T ( O * I ) 

ZT(L f O) = ZT ( J *1 ) 

N EXT O: N EXT I 

FOR 1=1 TO K: FOR 0=1 TO 5 
PRINT XTa,0),YTCI,0)»ZT<I,0) 

N EXT O: N EXT I 
CE T A* 

GOSUB 3000 
F OR 1=1 TO K -+- 5 
FOR 0=1 TO N (I) 

YT(IO) = - Y T < I t O> 

N EXT O: N EXT I 
GOSUB 3000 
RE TUR N 
REM 


MANIPULER UN OBOET 


17010 

17020 

17030 

PRINT 

17040 

17050 

T 

17060 
17070 
1 7 O Si O 
17070 
17 1 OO 
17 110 
OO 

1 7777 
15:000 


HOM E 

PRINT "VOULEZ-VOUS:": PRINT 

PRINT "1—OPERER UNE TRANSLATION DE L'OBJET" : 


PRINT " 2 —OPE RE R UNE ROTATION": PRINT 

PRINT "3 —CREER LE SYMETRIQUE %> UN PLAN": PRIN 

PRINT "4— FUSION NER DEUX OBJETS": PRINT 
PRINT "5-HOMOTHETIE": PRINT 
PRINT "6-AF FI NITE " : PRINT 
PRINT "7-HOMOTOPIE": PRINT 
INPUT "VOTRE CHOIX ";C 

ON C GOSUB 19000,20000,15:000,2 1000,22000,23000,240 

RE TUR N 
RE M 


SYMETRIQUE % PLAN 


OO 1 HOME 

005 FX = O : F Y = O : F Z = O 
006 GOSUB 30000 

007 PRINT : PRINT "SYMETRIQUE 
PRINT : PRINT " 1 — 

Z~ O PLAN XOY" : PRINT 
PRINT "3- X = 

O PLAN Y O Z" : PRINT : INPUT 


PRI NT 


PAR RAPPORT ALT PLAN 
— Y = 0 PLAN XOZ": PRINT 


3003 IF C = 1 

007 IF C=2 

O i O I F C = 3 

O 1 1 FOR I = 

020 IF FX = 

022 IF F Y = 

024 IF F Z = 

030 N E XT J: 

035 PRINT 
040 INPUT"NOM 
050 GOSUB 3030 
3 09 IF C = 2 THEN 

3 7q><? RETURN 


THE N F Z = 1 
THE N F Y = J 
THE N FX = 1 
1 TO L: FOR 
1 THE N 
1 THE N 
1 THE N 
N E XT I 


VOTRE CHOIX 


J - 1 TO N (I ) 
XT(I,J) = - XT(I,J) 

YT(I, J) = - YT(I,J) 

ZT(I,J) = - ZT(I,J) 


NOUVEL OBJET ";0$ 


F Y = 1 








19000 REM 


TRANSLATION OBJET 


19010 HOM E 
19020 GOSUB 30000 

19040 PRINT "DONNEZ VECTEUR TRANSLATION": 

19050 I IJ PU T " DX=" ;DX 

19060 INPUT "DY="|DY 

19070 INPUT "DZ=";DZ 

19 030 FOR 1=1 TO L 

19090 FOR J - 1 TO N(I> 

19100 XT(ItJ) = XT(I»J) -+- dx 
19110 Y T (I , J) = YT (I t J) + DY 
19120 ZT(I f J) = ZT(I f J) -+■ D Z 

19130 NEXT J: NE XT I _ 

19140 PRINT : PRINT "NOM OBJET TRANSLATE : : 

19150 INPUT ""iOî 
19 160 GOSUB 30 3 0 
1999 9 RETURN 
2 0 0 0 0 REM 


PRI NT 


P R I NT 


ROTATION OBJET 


200 10 HOM E 
20020 GOSUB 30000 
20025 PRINT 

20030 PRINT "ROTATION AXE PARALLELE A-": 
20040 PRINT " 1 -L'AXE OX : ROULIS": PRINT 
20050 PRINT "2-L'AXE OY : TAN GAGE " : PRINT 
20060 PRINT " 3 —L'AXE OZ : LACET": PRINT 
20070 INPUT "VOTRE CHOIX ";C 
20030 ON C GOSUB 2 5 0 0 0,26000,27000 
2 0 999 RETURN 
2 1000 RE M 


PRI NT 


FUSION OBJETS 


2 10 10 HOME 

21020 PRINT "FIN DE FUSION,TAPEZ LE MOT FIN": PRINT 
21030 PRINT "PREMIER OBJET A FUSIONNER": PRINT 
21035 GOSUB 30000 

21040 INPUT "NOM OBJET A FUSION NER ;OS 

21042 IF O* = "FIN" THE N 21500 

21050 PRINT D$"OPEN";0$ 

21060 PRINT D*"READ";0* 

2 1 062 REM 

OPERATION DE FUSION 


21065 REM LL = NOM BRE DE CHAINES DU NOUVEL OBJET 
21070 INPUT LL 

2 1000 FOR I = L ■+• 1 TO L ■+■ LL 

21090 INPUT NCI) 

2 1100 NE XT I 

2 1110 FOR I = L 1 TO L ■+■ LL 

21120 FOR J = 1 TO N (I ) 

21130 INPUT XT(I,J): INPUT YT(I,J): INPUT ZTCI,J> 

21140 NEXT J: NEXT I 
21150 PRINT D$"CLOSE 11 ;0$ 

21155 L = L + LL 
2 1160 GOTO 2 1040 
21500 REM FIN DE FUSION 

2 15 10 HOM E 

21520 PRINT : INPUT "NOM DE L'OBJET GLOBAL ";0$ 

21530 GOSUB 3030 

21999 RETURN 

22000 REM 

HOM OTHE TI E 


220 10 HOME 

22 0 20 GOSUB 3000 0 

22040 PRINT "COORDONNEES CENTRE HOM OTHE TIE" : PRIN 
T 

22050 INPUT " XC= " ; XC 

22060 INPUT "YC=";YC 

22070 INPUT " ZC= " ;ZC 

2 2 0 0 O PRINT : INPUT "COEFFICIENT HOMOTHETIE " ; HO : PR 
INT 

2 2090 FOR I = 1 TO L: FOR J = 1 TO N < I ) : REM 


22100 XI = XT (I , J> - XC 
22110 Y 1 = Y T CI » J > - YC 
22120 ZI = ZTCI , J) - ZC: REM 





2 2 130 X2 = XI ■» HO 
22135 Y 2 = Y 1 * HO 
22140 22 = ZI -* HO: REM 

22145 XT (I t J) = X2 + XC 
2 2 150 YT (I ,J) = Y2 -t- YC 
22160 ZT(I f J ) - Z2 + ZC: REM 


22170 N E XT J: N E XT I 
22799 RE TU R N 
2 3000 REM 


AF FI NITE 


230 10 

HOM E : 



230 15 

FX = 0 : F Y = O : F Z = 0 


23020 

GOSUB 30000 


23060 

FRINT “ 

1- X= O FLAN Y O Z" : FRINT 


23070 

FRI NT" 

2- Y = O FLAN XOZ": FRINT 


23050 

FRI NT ” 

3- Z=0 FLAN XOY" : FRINT 


23090 

I N FUT 11 

VOTRE CHOIX 11 ; C 


23 100 

I F C — 1 

THE N FX = i 


2 3 1 1 O 

I F C = 2 

THE N F Y = 1 


2 3 120 

IF C = 3 

THE N F Z = 1 


23 125 

FRI NT : 

INFUT "COEF AFFINITE"; 

A F: FRINT 

23 130 

FOR I = 

1 TO L: FOR J = 1 TO N (I ) : 

REM 

23 1 40 

IF FX = 

1 THEN XT (I , J ) = AF ■* XT(I 

,J> 

23 150 

IF FY = 

1 THEN Y T ( I , J) = A F * YT(I.J) 

2 3 16 0 

I F F Z = 

1 THEN ZT (I , J) = AF * ZT(I 

, J > : REM 

2 3 17 0 

NE XT UT: 

NE XT I 


2 3 9 9 9 

RE TUR N 


24000 

RE M 



HOM OTOFIE 




240 1 O 
2 4 0 2 0 
2 4 0 5 2 
T 

24054 
240 60 
24070 
2 40 3 0 
24090 
2 4092 

24093 

24094 
24 1 OO 


F X = O : F Y = O : F Z = O 
GOSUB 30 0 00 

FRINT : I N PUT "AMPLITUDE DEFORMATION “ ; A : FRIM 

INFUT “ LARGE U R DEFORMATION “;B: FRINT 

FRINT "1-SELON OX" : FRINT 

FRINT 11 2 — SE LO N O Y": FRINT 

FRINT " 3 —SE LO N O Z" : FRINT 

INF U T “VOTRE CHOIX “;C: FRINT 

IF C = 1 THEN FX = 1 

IF C - 2 THEN FY = 1 

IF C = 3 THEN FZ = 1 

FOR 1=1 TO L_ : FOR J = 1 TO N (I ) : REM 


24110 XI = XT(I,J):Y1 = YT(I t J):Zl = ZT(I f J> 

24140 R 2 = (FX + FY) ■» ZI ^ zi h- < F X -+■ FZ) «- Y1 * Y1 -t- (FZ 
) ^ XI *■ X 
1 

24150 H = A -* ( E XP ( - (R2 / (2 * B B)>>>: REM 


24 160 
24 170 
24 160 
2 4220 
249 99 
25000 


XT (F J) = XT(I,J) -h FX -h- H 
YT(UJ) = YT(I,J) ■+■ FY -h- H 
ZT(FJ) = ZT(I,JT) -4- FZ -h- H 
N E XT J : NE XT I 
RETURN 
REM 


ROTATION AXE // OX 


50 10 
5020 
5030 
5040 
5050 
5060 
5070 
5 O 3 O 


HOME 

FRINT “TRACE AXE DANS FLAN 
INFUT " Y A —" ; Y A : FRINT : INFUT ' 
INFUT "ANGLE,DECGRES: “;AR 
REM AR ANGLE DE ROULIS 
AR = AR -* 3.1416 / 130 
CR = COS ( AR ) ; SR = SIN CAR) 

FOR 1=1 TO L : FOR J = 1 TO NCI) 


REM 


Y O 2 " : FRINT 
"ZA=",ZA: FRINT 


25090 

XI = XT(I f J) 


25 100 

Y 1 = YT<I , J) - 

Y A 

25110 

21 = ZT(I , J) - 

ZA: 

25 120 

X2 = XI 


25 130 

Y2 = Y 1 CR 

- ZI 

25 1 40 

Z2 = Y 1 -fr SR h- Z 1 

25 1 50 

XT (I , J) = X2 


25 160 

Y T (I , J ) = Y 2 -t- 

Y A 

25 170 

ZT(I,J0 = Z2 + 

ZA: 

25 130 

N E XT J": N E XT I 

25999 

RETURN 



-* SR 

CR : RE M 


REM 



26000 REM 

ROTATION AXE // OY 


26010 HOME 

26020 PRINT "TRACE AXE DAMS PLAN XOZ" : PRIMT 

26030 I NPUT ” X A ~ " ;XA: PRINT : IMPUT " ZA=" ; Z A: PRINT 

26040 INPUT "AN GLE DEGRES ";Ai 

26050 Al = Al 3.1416 / 13 0 

26070 REM Al ANGLE DE TANGAGE 

26075 CT - COS < A 1 ) : S T - SI N (Al) 

2 6 0 3 0 FOR 1=1 TO L: FOR J = 1 TO N (I > : REM 

26100 XI = XT (I * J) - XA 
26110 Y 1 = Y T (I , J) 

26120 ZI = ZT(I»J) - Z A : REM 

26140 X2 = ZI ■* ST ■+■ X1 ■* CT 
2 6 150 Y 2 = Y 1 

26160 Z2 - ZI * CT — XI «■ ST: REM 
26170 XT(I t J) = X2 + XA 
2 6 13 0 Y T ( I , J) = Y 2 
26190 ZT(I,J) - Z2 + Z A: REM 

2 6 2 0 0 NE XT J - NE XT I 
2 6999 RE TU R N 
27000 RE M 

ROTATION AXE // OZ 


270 10 HOME 

27020 PRINT "TRACE AXE DANS PLAN XOY" : PRINT 

27030 INPUT "XA=";XA: PRINT : INPUT " Y A= " ; Y A : PRINT 

27040 I NPUT " ANGLE ,DE GRE S: " ; A L 

27050 AL = AL *- 3.1516 / 180 

27060 REM AL ANGLE DE LACET 

27070 CL = COS (AL):SL = SI N (AL) 

27 0 30 FOR I = 1 TO L: FOR LF = 1 TO NCI): REM 

27090 XI = XT (LJ) - XA 
27100 Y 1 = YT<I,J) - YA 
27110 ZI = ZT(LJ): REM 

27 120 X2 = XI ■* CL — Y 1 SL 

27130 Y2 = XI *■ SL + Y1 # CL 

2 7140 Z 2 = Z1 : REM 

27150 XT(I f J ) = X2 -+- XA 
2 7160 Y T ( I , J ) = Y 2 ■+ Y A 

27170 ZT(I f J" ) = Z2 : REM 

2 7 13 0 NE XT J : NE XT I 
27999 RETURN 
2 8 O O O REM 

CREATION D'UN FICHIER BLOC 


2 3010 HOME 

23020 INPUT "NOMBRE D'OBJETS ";E 
23030 FOR 1=1 TO E 

28040 PRINT "OBJET NUMERO ";I 
28050 INPUT EL*<I>: PRINT 
2 8060 N EXT I 

28070 INPUT "NOM DE CE BLOC " ;BL$ : PRINT 
28080 PRINT D$"OPE N" ;BL$ 

28090 PRINT D$" WRITE" ;BL$ 

28 100 PRINT E 
28 110 FOR 1=1 TO E 
28120 PRINT EL$(I) 

23 130 NE XT I 

28140 PRINT Dt"CLOSE";BL$ 

289 99 RETURN 
29000 REM 

LECTURE FICHIER BLOC 


29005 HOME : INPUT "NOM DU BLOC " ;BL$ 
29010 D* = CHRt (13) + CHRI (4) 

29020 PRINT D$"OPE N" ;BL$ 

29030 PRINT D$"RE AD u ;BLt 
29040 INPUT E 
29050 FOR 1=1 TO E 
29060 INPUT E L* (I ) 

29065 N E XT I 

29070 PRINT D$ M CLOSE" ;BL$ 

2 90 80 FOR 1=1 TO E: PRINT EL*(I): N E XT 
00 0 : N E XT TT 
29999 RETURN 







30000 REM 


L'OBJET EST-IL EN MEMOIRE? 


30010 FRI NT : INPUT "L'OBJET EST-IL EN MEMOIRE ? ";R**- 
FRINT 

30020 IF LEFT$ <R$»1) - "O" THEN 30999 
30030 INPUT "NOM IDE L'OBJET: ”;0$: FRINT 
300-40 GOSUB 4020 
30999 RETURN 
40000 REM 

CHAIN FAN GRAPHE DESSIN 


40010 FRINT D$"BLOADCHAIN*A52û" 

40020 CALL 5 20" PANGRAPHE DESSIN" 


5000 REM 

MODIFIER UN OBJET 


50 10 HOME 

5020 GOSUB 30000 

5030 FRINT : FRINT "OBJET DE ";L;" CHAINES": FRINT 
5040 INFUT "DONNEZ L'INDICE DE CHAINE ";I 
5050 INPUT "DONNEZ INDICE POINT SUR LA CHAINE " ; J 
5060 FRINT 

5070 INFUT " XTCI , J> = " ;XTCI , J) : FRINT 
5080 INFUT "YT(I,J = " ;YT(I t J): FRINT 
5090 INFUT " ZTCI , J) = " ; ZT(I , J) : FRINT 
5100 INFUT "UN AUTRE POINT ";R$ 

5110 IF LEFTI (Rt,l) = "O" THEN 5040 
5 120 GOSUB 3020 
5 9 9 3 END 




PANGRAPHE DESSIN 

£Z oLqjjjx.'. ev^t. ^vcuvtk. eLe t&t _ 

U. He^, 062- PaNÆ-RAPWE" Ae^JlÆoJl^ CL_ C-sJù-Ù. oLst^ 

PAf /G|PA^€ 0&1ET; ___ 

^4 -(cfl££fl UN OBJET) 

Z-f^rocK^^ UN OEjET 

*> -CHARGÉR. ON OBJET PA N <5 RA PfT PBSSiN I 

4-(COMPLETER UN OBJET 
T-CMûDÏFîtR UN objet) 

Q-R€P RéÇGNTCR UM OBJET 

7-STôORÉR Utf£ lKlA6£ 

*8- CHAR6£R UVl£ !MA6£ 

^-C^ ANipUUER UM OBJET) 

^-(DefiwiR un Bloc Tobj-etsJ 
'H-^ûMTultcf un Ftc+o'tR Bloc 

41 - 

42 - 

4 ^- | 

-15"- 

"f£- 

AFCiCfÆR LC" CATALosOfc. 

^-«SoRtiR DU RRôCRAMNT 




Vô TR£ ^Üûix^H 



ov. -W- ^ 

Aa^- “ iyyyMAUi". ZlR^ j^. G ^Uji^Mr ^ 

^ P/WKA:PH^ OEJFT. 


Crf^Z -cjwl 


ULOADPAN GRAPHE DESSIN 
□ LIST 


O IF F D = 1 THE N 5 

1 L = O: REM PANGRAPHE DESSIN 5/2/34 

2 DIM XT(30 ( 9),YT(30,9)»ZT(30 f 9),X(30»9) f Y(30 f 9) ( N(30):FD = 1 

3 DS = CHR$ (13) -+- CHR$ <4> 

5 TE XT : HOM E 

6 IF C < > O THE N 3 30 

ÎO HOME 

20 REM 

PROGRAMME MENU 


30 VTAB 15: HT AD 15 
40 PRINT " VOULEZ-VOUS:" 

50 FOR TE = 1 TO 500: N E XT 
6 0 HOME 
70 PRINT 

30 VT A B 3: HT AB 25: PRINT " PANGRAPHE DESSIN” 

70 VT AB 1 

lOO PRINT "1—(CREER UN OBJET)” 
llO PRINT ”2 —(STOCKER UN OBJET)” 

120 PRINT ” 3-CH AR GE R UN OBJET” 

130 PRINT "4-iCOMPLETE R UN OBJET)” 

140 PRINT ”5 —(MODIFIER UN OBJET) 

150 PRINT ” 6-RE PRE SE NTE R UN OBJET” 

160 PRINT ”7—STOCKER UNE IMAGE” 

170 PRINT ” 3 —CHARGE R UNE IMAGE” 

130 PRINT ”9 —(MANIPULER UN OBJET)” 

190 PRINT lO — (DE FINIR UN BLOC D'OBJETS)” 

200 PRINT ” i 1-CONSULTE R UN FICHIER BLOC” 

210 PRINT ”12 — ” 

220 PR I NT ” 1 3-” 

230 PRINT ”14 — ” 

240 PRI NT ” 1 5-” 

250 PRINT ”16-” 

260 PRINT ” 17 — AFFICHER LE CATALOGUE” 

270 PRINT 13—SORTIR DU PROGRAMME” 

290 I N PUT "VOTRE CHOIX ”;C 

300 IF C = 17 THE N PRINT D$" C AT ALOG” : GE T AS: GE T AS 

310 IF C = 13 T H E N END 

320 IF C - 19 THE N PRINT DS”RUNPAN GRAPHE PRINCIPAL 

330 ON C GOSUB 40000,40000,4000,40000,400 00,7 00 0 JÜOOOJO 
00,40000,40000,2 
9000 

999 GOTO ÎO 


(/V cU^Jc / w ^ 

tkjL C. 

U/a y f)0A AA^üÙ2xxJ- 

^ 0 0OQ / : 


FL,^<Z- FZ) y t'wUwL tàot 


40000 REM 


CHAINAGE SUR P/QBJET 
40010 PRINT D$"BLOADCHA 
40020 CALL 520”PANGRAPHE 


N , A5 2 O ” 
OBJE T” 





CJ2^jC^M_ . Û2^ <^U '4 &u ^' <^0-«- ^ /(3V 
.. \&KjlXJlÂ/^Q—-- cf^SL- i 


4000 REM 

CHARGEMENT OBJET 


(XxK 


40 10 

INPUT "NOM DE L 

'OBJE T " ; OS 

4020 

DS = CHR$ < 4 ) 


4030 

PRINT Dt"OPEN"; 

OS 

4040 

PRINT DS " R E AD" ; 

os 

4050 

I N P U T L 


4060 

FOR 1=1 TO L 


4070 

I N P U T N CI) 


4 0 3 0 

NE XT I 


409 0 

FOR 1=1 TO L 


4 100 

FOR 0=1 TO N (I) 


4 110 

INPUT XT ( I » J ) : INPUT YT<I,J): INPUT ZT<I,J) 

4 120 

NE XT O: NE XT I 


4 130 

PRINT DS " CLOSE " 

;os 

4999 

RE TURN 


5000 

GOSUB 2000 


5999 

RE TUR N 


Aj>J éKSLsl 



2 9000 REM 

LECTURE FICHIER BLOC 


29005 HOME : INPUT "NOM DU BLOC ";BL$: FRIMT 

29010 DS = CHRS <40 

29020 PRIMT D$"OPE N" ;BL$ 

29030 PR I M T DS " R E AD" ; BLS 
29040 INPUTE 
29050 FOR 1=1 TO E 
29060 INPUT ËLSCI) 

29 0 65 NE XT I 

29070 PRINT D$"CLOSE ,, ;BU 

29030 FOR 1=1 TO E: PRINT ELS(I>: N E XT I 
2 909 0 FOR TT - 1 TO 20 00: N EXT TT 
29999 RETURN 


ColXC&s^ <zt 


18 



REPRESENTER 
UN OBJET 


L ^ CjiAn ; /Ve ^£lm2uX 

chz^A JL r &f*(SL (y&yJr YTy Y7, ZX 

j?<TUA. CÀj&2a^ U>VM2_ ^AJ2_. X 'iTtf 

vaa^v ^ûi V) T" ^ O&S £ RV tA*T"l ÔW ^Xe. X M ; y M j Z Xt * 

^^UaX CAuM- «sa. ’C^. £>(a^-<i ^LaXhjcZZ&^ 

cX *^a v Ks_x. -'■^^àxC^ ^^/v£^_,êA- CjEX y C' Q/$~ <^6<ajz (5’Aajè^^ X ^ 

reNÉTRe be visfow : 



K/ûCa^A ^JtAArtT'^ Q CjiKJL. , >^erU_4 ^ov^Aj-cf^yi a. 'Irtj^wXïI 'XsLcU^e. a. -£ ÔU\/E£7""U)5f 

ANBULAvRE AW ceifc ; c/ êâf- ^ iiiAjL F’ôCALEy'Vuyfcùe, 

ZOOM. 

^ ATTI TOPE <j6sl -é* (r^4e^aXjâlL^ ci&ÿMs~cL oL& ~(ajh-4 ol^oJ2qa 7 éfü-4- 

(TW ^rO-A^ LM-^ -ywuL ^ ’ OufJ^Oj^ùJL ^cj^a^Mnc^l^Ç. 



<?Le. C>£:lÆ£S 


iVK^- o(jz- S ITCî 


AZIMUT 


^3 



PcrUA. tbu^r £ O- o(slaj^^ ~€qa 

t>cyi>L^ . Mo^ / oL(xm^ udtL -^Kjijsy^ 

Vvje. ^Ooc_ ^ AXI MU "T £ I ^ -£^ a -~ 

C^2/r4Ar<dL -€. / 6^-£_ AJZ/^XAchjlA^ lAjtr^- O^y^zChz 

Ov^ cksu Oo^G. * C Are* tj^ùi^ / eJ^~ (JV^ 

/UAÆ lA-£_ ch f Ua^_ ^frvCcçr^Là * 


£ éfAAs&X- y Zû>^4 y 

LM^v ~tZ(y\X^- Cty-éxA ^ 





t ' eioAytAA -€^fcc_ y ^- 

^< , yu^J2v. ou^Jxi yy\jOu\^ -^x ^\v^. *^1A^XW C-£_ la— 

/ X y xy{h-* LA-A/^ ^h^CXA^h U^Aa— ^ -■•'^■■Eaaaaa_-^(!^ oLsi^ (_ca £?j^ 



bévERs du au Aoul'is 



T^WfrA^f 


80 



IsO. (d Qo À Uv.^^laj2a_ ^ € ' Ù^cL^-oX2lua_ / - '**&** 

ÇjlA CKM-^lsiA d 1 OAj Oyvvw^T 4À~ cb- ^ta, • M «Zl tzAa. <^aJ2 CoX 

y^-<^^Ly6^2-' / £KA-e_ -£ ' cjv\_ ~Ù(r^<dr CumQfai c^s^-^Ce^, g< 

^îv^ovuLv-e.-. £ 


ZL 


YL 


“z-T 


' A 



^ XT 

^OXt/ oyy, 0~2~j) -êe, T^éFiÈRENTlt*L ABSOLU ^ AJTLA, £X '"0"CA 

C!W Cxt, vt, zr) PoiNTS ©fcJ€T$ % 

NA eot ^Îm^: 7 A&- (^M,YM ,Z Mj *Àr £-q^ 

V^t^UA. NA 6 . 0"K, ^y<X*AJL — LOV^- 

tÀ/Cèd?lA£ Xj^U\SLC^OJ^O^Si^ ^ M y M YL ^ M Z L_J Cj£a/J(/u 2_ -6v-v NA -£^~ 

cxaa^c &J/C4 ch^K (^ ÛXT/ OYT/ OZ T ^ - 

cgjfctfi- •^^^UAC. / <3V^ 'VlTL^r J&à* -^TUiA-^. CU^<^2<3 A ^ >4 ^UV\aaa^6 J 

L^L. / \y'~4~££_ /4“^- ^<XCt oCu^S2-cZXj^ G ( x6,Y6,z.6j y e^r 

C 1 £&4r roi -ma^vêa/aJS^l cAjl c^^oLj^^Sxl^ cl»^L "^o^a-iaa. c< 

- S tl -€g -^Kjo lvX: & A%- "tWA^Hi_ æ^âj2_ -£c_ cêaaYâ^. djt ^cur*. ÈL 
o(x o(y^ y -j^ÛL*. £^JZ^v~p~b-- / jv~ Æ6<A,a. -€e<3 c^cXiAOM «=4-C. 

<?Lc(/vaA dji\suïXXj^\~- • 


81 



A, Ot /ifccKck^ ov sy^r^XK-xxjJh &Lsuz_ •. 0\j e_ ^-&A 

cca c^r^Cav^vvi£4 Cr6^e?t X (r, Y 6' / 'Z-6 cLckj^ -£a -^.c-^CA- ÔfèJE T y €ÿf 
<ô~t Ook^- <-ôfch- LA^^V<WcOtCûtM2_. • LtyiA <ds^ otûArtsùf*- i "^L- "^>oôv^CX^J2— 

~^&UuaJ2- CUx-^CTVs. oJ^^lAJiAr^exA^. M-CKJA C&JL^ Afc*-£X^£ ~tc~^S\f^ 

hQJtyO^cXji^. ■MÀ i^sy^ aJl.c^.<À-SL. . £-C 'VMsuUi 'lro^ l -^<S Vv ^ ^X e^A^(r-^2_ 

Cavol- ds- / \nJlQ-c<.& e - , < Mr^c CtQ^&Xa -^-(U-Afr 

-éj2, '^/VOOvO^T '\>-LA-ejQ_ 

-^£_ CCaaJ^Âjl (3?Jl “^3L —£a62_. 




ov. iÂ^cëA^ 

l( MAiRiE ,J , £<x- dju^(£k*^ oLsl. 

✓y^£_ xpvjO-A^^-^- -^vû- 4 -^jr^ûLA. 

AlfW- Cj2AaI/CnjC_ . 

Le, -eaf Muddc^Jz eht- vj- 4-0 ^ ck^Aca. ûU -^e Wa^ u*v 

^ -€iX. ,^-ôk^ttfL . S^VOÇJV^ crw '^-A<=|UJL £>6 î- -f^A^ -^O-A / V^dZ 
d-%- "tex 'Cft- . LOv'-r, o^'-xXjLijv'— £< r^AriZïtsL. ■'^ a - t/ '~c~ '^'-‘^'CAJi/X 


C^rtXW^tfV'V'-SAi i^(x -4 tJvv OJa^^V-cl, 


rvv jw**\ a a 


—^ c^2^aJÏA_ 



: C-eOt~ oA-^eA 

MAiR»E 80 ~^pS- & 
ou ov^-e^ : H Ai Ri E (% fi/4- //</ J 


8Z 




L£- '\y4-ctjêju A- M 6 <9- 

ex r x6 - yM 

cy= ys -YM 

Cz = Z-s -z.M 

C^JV'^-Ouûè' -€j3— yir^JjL- <À. ' 1/^-àtÂM. cTïjV'-à >J / ^ÊM/Y^ttilc\A^r cLa. C&JZ OjJZ T É^t/m-wA-A 
-Ce. /^<Æ- £. &&J*Jr (AaTCoUaa>-*J 2_- 'VV'w(X^^tLv'o2UA^ GOVa. tXûLUAJL 

Lié A 1-‘OïS€RvAT€UR •• _ 


CatU/tA 


w 



IA 


4^ 



vr 


xt 


l OJ/,Ç^ MV eût 
l oJjsî- ÏAW c-c^^Y^-c-fc <^-e_ 
TM-Ê-GIajZ. 'T^AJL<dt<^^Oy^-G-- 


-4x T -e-Cit twu -^jouvot -£ ' CrQ-ÿL^T , 

C^rV\^5CçrtMAJÈ£A ^Ûu^UcOlÆAa^M ^i -^AA, r \o^^-)Q\X ev 

CC- T^A-M-ecu*- Tu-cItS’lvjL- , ->e^wf X A VA, Z A 


éà ,^^0laXU_ oLsl (jzJ^ C*çs^r*^-ckj&*- l v^l>-CL£i 0~^-^^/\SLKK^XJ!i ^Vo&'-OÛ Cj»—^ Cxi_^Za^ 

■e/ O^u/ysAjjt -Çji A*iô- z c^JLaj^ju^^^ ^Cjla 

/ 

-^CAÆLAa--' - 

Crw ovx»^**, : ( XA =. MT • MU. 

XA - MT. MV 


"Z.A = MT. M IV 


XT- XI 4 
^c MT <> VT -XM 

TT -Z.M 


83 




/M= G*SC«A 
yt< = /TSA A 

ZU- îtw ^ 


/" xv - _ a r pw 

hv) vv= a»/ hwJyw 
rzv= o /2 V»' 


=ï — fu^S* Cçp A 
_ _ ,f L iSTA * 
^ 0-4 ^ 


0 L /^-çrt€v 0 - : f Os A — C T 

\ C^S - Ckt 


fi*XA = ST 

^ S = SK 


KU 


XUcCk^Cr f x^=-ST 

>k - C K -x- s r w\l< yv=. cr 
z u = s k 21/- û 


Z' AU/ r —A CT 
IV j y w ~ — SV ^ ST 

C z vj - c ic 


! -^MïO(juJtÂ 4ccd QjXtAJLX 

XA= lL*yu + YL* +zl^zx 

YA = XL-*-XVa Vi-AW + 'Z^-A ZV -O^CooftPoNAjées 
^A = XL*XA/ + YL-x- yu/T^L *ZU/ APPARei'iTfi'S . 


7000 REM 


REPRESENTER U N OBJET 


7010 TE XT : HOME 
7020 FRI NT : FRI NT 

7030 I N FU T "OUVERTURE ANGULAIRE ht ;AN: PRINT 
7040 PRINT "POINT D'OBSERVATION” 

7050 PRINT : INPUT "X= l, ;XM 
7060 INPUT " Y= " ; Y M 
7070 INPUT "Z="iZM 

70 3 0 PRINT : PRINT "CENTRE O DE L'IMAGE": PRINT : IN PU 
T " XG— * 1 ; XG: INPUT 

" YG=" ;YG: INPUT ,, ZG-";ZG 
7090 CX = XG - XM:CY = VG — YM :CZ = ZG — ZM 
7 100 DI = SO.R (CX -* CX + O Y -* CY) 

7110 IF DI - O AND CZ > O THE N TE - O :KI - 3.1416 / 2: GOTO 
7 2 10 

7120 IF DI = O AND CZ < O THEN TE = O: Kl = — 3.1416 / 2: GO 

TO 72 10 


7 130 

Kl = 

= A T N 

(CZ / 

DI) 







7 1 40 

IF 

CX = O 

AND 

CY > 

O 

THE N 

TE 

— 

1 .57 : GOTO 72 

1 O 

7 150 

I F 

CX - O 

AND 

CY < 

O 

THE N 

TE 

= 

- 1 .57 : GOTO 

72 10 

7 160 

TE 

- AT N 

(CY 

/ CX) 







7 170 

I F 

CX < O 

AND 

CY > 

O 

THE N 

TE 

= 

3.1416 ■+■ TE 


7 13 0 

I F 

CX < O 

AND 

CY < 

O 

THE N 

TE 

= 

3.1416 -+- TE 


7 190 

I F 

CX < O 

AND 

CY = 

O 

THE N 

TE 

= 

3.1416 


7200 

I F 

CX = O 

AND 

CY < 

O 

THE N 

TE 


- 3.1416 / 2 



7210 AZ - TE -* 170 / 3.1416:31 = Kl * 170 / 3.1416 
7220 REM AZ AZIMUTjSI SITE 
7230 CT = COS (TE):ST - SI N (TE) 

7240 CK = COS <KI):SK = SI N (Kl) 

7250 XU = CK * C T : Y U = CK ■* S T : Z U = SK 

7260 XV = — ST: Y V = C T : Z V = O 

7270 XW = - SK -* C T : Y W = - SK ■*• ST : ZW = CK 

7 2 30 HOME 

7290 PRINT " 1 — OBJET DEJA EN MEMOIRE": PRINT 
7300 PRINT "2—DESSIN PAR ELEMENTS 11 : PRINT 
7310 PRINT " 3 — DESSIN PAS A PAS": PRINT 
7320 PRINT "4 —DESSIN PAR BLOC" : PRINT 
7330 INPUT "VOTRE CHOIX ";C: PRINT 
7340 ON C GOSUB 12 0 0 0*11000,30000,10000 
7 9 93 GE T A*: TE XT 
7999 RETURN 







rv^A\\y<^ &A <?Ksl<s) 

: Ji ' (yt-jc^ J ^ J ^' _ . U-^ ofeAH^. 

oV 0^ 0 (y^JC UKHMê ï C ju' <jw OMACL. -y~<M -&€4où^ (Àjl C^u^LX- - 

-€y^j2 

_ - _ £'(J\cOsJ.A&a+_ 4' <y^ "& 

fc 0- ÛL- i?{ ' (a^ cLA-lrt^- Çjs+^-JçjUU^ wj=£" Cma. U2a7u3aa^ 

c(, /^-Ca.aJ'-a^ a4&a^C< 3 C-qrU-^^l^V^Cçvv. £7 ^ 

d! ULLkatjü^Ja Iz.U^C^-') <?<a> 

(>a~- -eA" 

.' 0 -ÊA^VUv, -^"vOl-O G* —^O-/^ : (XjXïS^s-) (aV-C- <aJt2^AAA_<iUVv Cj?^_ 

ci_si_ yjf^yu ûy^j-X.\^ (aÆx, -^It <?<■«- uî?c 6 l / (K 'f^y^ov^-. 

/WAAjtAA^OfiA V^ ol ^ «X*. V^a-v«~o-^- 0< ûr^^XT - 

| OfrA\ 

o^ (Zsl^C\j^ q^M~ -^Jv^aU-YV- ""(j-t c^-xj2^ 

-^T^erC^ >^AJ2,cf^A^^ /1n*A- éAqa) I^IIjC • 


-^a^ccL^ _ ^— 


(j^ /9r^0 /|sA^O ^Ajtvv^rv^ <£>(_£_- 'tv^CJ^ ^ ^ &L '^jr^kZZZ 

^Çvdi$&4 XèÀf &i f 6^W &^^Jr s^^-t ^ZA^Jr -£>u- 

(Xk. a. -^rr^o ""/V 

[&. * 

0%J6T 6 6V A £A/ H^Vto'ifîC : 


1 2000 REM 

OBJET DE J" A EN MEMOIRE 


12010 
12020 
12030 
1 20 AO 
12999 


-fprt'v ^Jxajt^- i 5 ^ w ûe_ -&L Ce^dhj^ . .. 


HGR 2 : HCOLOR= 3 ^ ^ ^ _ 

HPLOT 0,0 TO 279*0 TO 279,190 TO 0,190 XO 0,0 

GOSUB 15000 _ _ 

FOR T - 1 TO 7: PRINT CHR$ <7>= N E XT T 

RE TURN 


8 ^ 




» 


t>ÇSS)M PAR ÉLÉheAJTS 


1 i O O O REM 

DESSIN PAR ELEMENTS 


1 1 O 1 O 

1 10 2 0 
11030 
1 1040 
11045 
1 10 5 0 
11030 
1 10 7 0 
1 10S0 
1 10 9 0 
1 1 1 O O 
1 1 1 1 O 
1112 0 
11999 


HOME 

INPUT "NOMBRE D'ELEMENTS ";E 
F OR K — 1 TO E 

INPUT "NOM ELEMENT ";EL$(KO 
M E XT K 

HGR2 : HCOLOR = 3 

^^LOT 0,0 TO 279,0 TO 279,190 TO 0,190 TO 0,0 
u OR K = 1 TO E 
OS = EL$(K) 

GOSUB 40 2 0 
GOSUB 15000 
N E XT K 

FOR T = 1 TO 7: PRINT CHR$ (7): N E XT T 
R E TUR N 


Ç. I— ^ (_ K J 

9-ôu^. [ '^^hXbSL, ■■ cc_ 

T>€SStKJ PAS Â PAS 


3 0 0 0 0 REM 
DESSIN PAS A PAS 


30010 HOME 

30020 INPUT "NOM PREMIER ELEMENT “;0$: PRINT 

30030 GOSUB 4020 

30040 HGR2 : HCOLOR = 3 

30050 HPLOT 0,0 TO 279,0 TO 279,190 TO 0,190 TO 0,0 
30060 GOSUB 15000: FOR TT = 1 TO 7: PRINT CH R S (7): N E XT 
TT 

3 0070 GE T AS: GE T AS 


G3u©(aJ2. 


j -X\a>uxJ -C C*v\^. 


^r- 


SouA l «*-*- ÇtfÀ ~ ,l £f’RS “ Prvv_>çrui4 C C -HR ^£4) J ■ 

c\ ■%. <C oin cLsl_ (y&T A f 

IXw2- y^uZJx. oLn PO c?L_ Ka^cAj^ 

Tji/yA'L' S A(AsJmaÀa^_ ^ ow^ac^z. / Cm. ~t\c 

Vk-&e Jt ûüu. f^ctact^T. 


~CiCJLe_ -2*^ 




uw A-imee -ele/ient ? 


Ac c 1 £'7 / f~ OV^VV- / Û£- < ^/VJEX4^^^ / ’^f r & A -^ ^ex^uJ 7 ^ 

J**- ^ ReT(Jie a/ 

/^■c C ' £V^ (TWl ^ ^V^-asv^- ^ )/ Lfi_ zJLo/r<^U^jC ^ / 

-€aa^ 'Vm) «2=^je_ ^ L*~e^ o{jl^ P O/^ETŸ Æ f) J 2- y ^ 

cKsi^r^ C Go^0% I Ç^^gs") / 


30080 POKE - 13303*0: POKE — 13300*0: REM TEXTE 
30090 I N PUT "UN AUTRE ELEMENT ? ";RS: PRINT 
30100 IF L E F T S < R S * 1 ) < > "O" T H E N 30999 

30110 I N PU T "NOM DE L'ELEMENT ";OS: PRIIMT 
30120 GOSUB 4-020 

30130 POKE - 13304,0: POKE - 13299*0: REM PAGEII 
30140 GOSUB 15000: FOR TT = 1 TO 9: PRINT CRRS C7 > : NEX1 
TT 

30150 GE T A*: GE T AS 
30130 GOTO 30080 
30999 RETURN 


V€SSiV PAR ZL0C : 


10000 REM 
DESSIN PAR BLOC 


10010 I N PUT "NOM DU BLOC ";BL$: PRINT 
10030 HGR2 : HCOLOR" 3 

10040 HPLOT 0*0 TO 279*0 TO 279*190 TO 0,190 TO 0*0 
10050 FOR K = 1 TO E 
10030 OS = E LS (K) 

10070 GOSUB 4020 
10080 GOSUB 15000 
10090 NEXT K 

10100 FOR T = 1 TO 7: PRINT CHRS (7): NEXT T 
10999 RETURN 


~f~ i £-0 C_ ^ T' cL_^uvC‘-' / ^5ïL v _ 

JU. JUlaJ^ C &OS <J% 2 fy&JÔ ), 

"teG-A A*- cAjL^^Jisi_ cL 0 V''-CM/w-Cw£__~(a£-i AAa/W^Q-w-j^ 


Vnjî. 4<3uJC rUAd '^-«^7 crw. Ou£e. iavv . 

L (jw -|Aujf~ iJ>0îirV-v-6^ C&-a 4uu_-o üc< /ry^oCtyZSA~^~~~ 

i JT ( J -eX -é’ u^^j-eAy^ 



i'iOOO REM 
STOCKER PAGE II 


0 0 0 5 HOME 

0 O 1 O INPUT "NOM DE L'IMAGE ";IM$ 

0020 DS = CHRS (4) 

0 030 PR I IM T D$"ESAVE";IM$;",A$4000,L$2000" 
::!999 RETURN 
P O O O REM 

CHARGER SUR PAGE II 


9005 HOME 

9 0 10 IMF U T "NOM DE L'IMAGE? ";IMS 
9015 HGR2 : HCOLOR = 3 
9020 DS - CHRS (A) 

9030 PRIMT D$ ,I BLOADUM$;%A$4000" 
9 0 60 GE T AS 

9999 TE XT : HOME : RETURM 


OÜ? i/^ù Çj£ cJlx ^ 


IMAGE 


(Jw c*SLu*Jhi^ 'fjL» Os^cAj^^ia^ irwt-^02^ 

APPARCA/TfS y C* ^ C\_ <ïMjjX}l_ -£&s0 

cK&A cKsXt^K^i LAaa. c< 'XX AJ^XXsjZa^. 


1 5000 REM 

CALCUL ET TRACE IMAGE 


15010 FOR 1=1 TO L: FOR J = 1 T O N (I > 
15040 XL = XT(I,J) - XM 
15050 VL = YT(I t J) — VM 
15060 ZL = ZT (I , J) - ZM 

15090 XA = XL *- XU VL -a- VU + ZL * ZU 

15100 VA = XL ■* XV ■+■ VL -H- YV + ZL * ZV 

15 110 Z A = XL -a- X W -*- VL ■» Y W ZL -a- ZW 


-ÊAa c/jux -<2 OV CLVv 

(TU Jlsi où \! t’ ^ g>o 

U, JL cuJIMIsau^ : <i2y^/)*w^ -f- y^jJsL. 

ou ^ 'Yî.I'éa- POtAi^f . 





< 4M- B6ST/y 

r ^- £t ''|^ <^Xxa>j< ""Z 2. /j^c^-A/^scAAyéj 



M*W 


1 



Xc 'Vtjva x B^aavLg x le. ^rvvv^NÆxvcc_. cC 

"^€L *\3^vVÜ 

^ <^£^ÈL <J^T^Ta^ . 

Cs &&t Co^auts^ sfyUA^ “Ç/ CT^lÇ 'Çnj^ovvvi 


S(^ ; 

&&..• 



^ du Aû^tx^c- c&(~ d&p/ tua ^c<jz^ / -£q* -^tyv^wuu 

crM yj^_ £m ^ P€Rr PttTiVB > cyJicjt À 

cMUajMj^ C£d ècA&j^fX/V) 



— y X*. (Xu^yi c-eJr <y^jLctZ/ ï~ (SH - E Y 

o-tiJL oCjl. . \ / 


ouVfftTutfE’ attïi^t go°. 

“~ XrXji-^ t ^ ex^- •'£ <£|x»^c_ •^-4-4 , ^v<5VVv^i^j!j<4 £r*X~ ■^ûulY' / 

<*J\ -& M+**As u~,.. «^,v. 4^^±cJU ^ ^ w«^ 

M '**- we»^.L_\/i$ioti *vt u~. 6BSTS'. ^ ^ 

'” ww> ^- -^AîCfî^jLvwu^ fl^aa^ï. . JPcrw^ '^X^slu^U, 

WAtJ\A-4 • ^ -^A^Vvs^a^. ^ <^AJ2L -Êft^ (jd&uJà y -^e^vcê^A, oie. £a. 

'fax ^Wcx|^x4^ML^ eux ^2 & t^JlsL.^ 

cIjl £ Wc^ cn c JX^Y^~ • £f A. /XtCx^J^ cy^_ 02^ ca0juJUa 

< \&OO^.Ç. & ^J. r *\xps^- O-.. -Ç La idjiK^X^jL , V'-txc-O ex ^ VARIAT» 0 N 

^ . L-a. sy*AA, C£2^Ç^_ 'V-Î44*jJ2£j 2. 'Vv'-eA^T oüs^c. -^ât_4 

#/062_ Cr-€ a^v_ 

I »j OJfÿ. taXiif^ . /" 


x « (5 ü \ 
/ £) . Ü \ 
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-^4 C^cx.^i -€ex<A. xitZ^&_ 
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6^ rwvw-t / ci— OrrJx^ —€_ 

1 ^ a . C^A/teuX-C.. LC&jLq- <cLb_ d (y^bf^^ajCds^ oL^^dr 
<djùà^Xfr€~ '^ j 2~ Z-I2AA j€£Uv '^UMVCUV —^-W-OA__ 
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^ -e^AvUu-^J? . 

T(?A£E' DÛ /lOüV^HeNT 
PB LA MPê'S l'uft UNJ 

éCRAM, PU A' L A - U_ V\SlôN o(2^~ Iaa^j 2— EXPLORAT"! ô Nf 

RË-M/4A/Jv/<^^ . f ^ i 

L crySfc. culaJZ— -&èTT C£^âr^ "\HoVi 

CHAKP ViSÜEU. 

£>(j!2u4 é/ 1 . 

__ l? &ù$L d ’ Ao/tlLtA- &st ^c^a.^-L 'Ÿ~^ <Ay ^ ^oAuaz*^ 

Cotti -sà^r^tjL c Aq POURVOI Te cU -Z'tr&fteJt. 

^ _ H| syji^f] \g V-c -^tAjod "‘'Srt-vV. c^a-Q_ ■• 

Aa-CMÜT, StTfi" / XKcK<^d-AGss*Jz djx. Cç' 

l Ijtjf 'Ytv4^a^olJ^_ <a^U AfccuJt (LqAJAl zAjla ■QjJvA/^cÛa ia-<j . 

y y \] '\ ^ ^ (jl ■€vo^uX- ^Î(L Cæ-k^vn. =^- s ~- 

<yvjsdô*jA •&£& '\j~s~AQ^At ^i-t^A- <^4 

^ -ê^a cuùm^J: eA /*Jjl y 

/V^ CJt *i dojyvçv^ - f^^<2A_UjL cc-^ c>^Xic^\^JZ- 

*^CX§hr^/i/yf A^SvW2„ /'’C /4 • . 

_ (XU y^cÙÀ -do- ViSfiUfc • 
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^ ^ Cd^L>uv^aj2^ <ru^. 
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<J? X) <S i aE^' <^2 V\Sfe? / cj2<3 
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c Li& 



AM6LE pûtAiRÉ' 


Doa^ -£' »^uv(X«^ DÇSS I N , € ' dca/Jr ojy^. o^JLojlksl nA-4 ev / \fXo ==&? 

(StfV'-A/^tT" -ê*a_ CfysJlJUA. Ÿ* 1 > M 
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rrr^XW^ / -^AXcc^J2A^-Y*^jeAX 7 r / A 

-eJ' ^j 2_ Avfc -éXc^ÀjiAxAr C-cvs-\>^a^CEû -2^- 

coofcpo^tféeç ècQAKi X/V 



1 

L M 


■■■■ • ^ 

J. S (TE 


-r 

A'ZiMüT 


_TX- /4aJiA <^AajçA ? £>K, O&^noust '^t^cpU^Cj^ -XX 

"P (- / VV\^a^J2_ ^ -2a^v XJ*-<A_ "P©. — 

^e- <X4 COORPONfiJé BS POL/4(R€S. 

__ ceXX si&vàJt -fXaA r^cjzuujZ — 

- £Æ c.Jl^ sfeA^dr ûl 1 uU^cÙA^ dü^ OUVSRTÜR^S AN&UlAifcCS 
__pa^ cete FBNëTRe t>€ VÎSBe y Y^-^i ye~ -^eU4 

c^a.uAX'Go^-^xrv-cb' -•. Q 


ViS CE 


POLAIRE 




L<Z- tUSt Ce -P <&sy^Q_ 

CK &bA~ Ojr^.O^JL -^^rCxC\^ 

P* toi *£ ^cojJ: y Oj-L* Oru^ (^ &U^<dLçv^ o^i&Ji 

l/W tüJl djj. f^L^-cUj^ c^sw^jtl tf>de 'inlAéûA die^x^co^Jz 

-£L&& CJX^-^ CA^ts^ &Lq~A ^J2/U^< ”Ç^AJL>W^.CuU^ - 


LE FiSH-EVE 




L CXlAA/^r CUw 

3<y 


“^OAy 
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L'ŒiL DE MOUCHE 


i-£L <Aj2. P y^Jüujh aJljtis^ 

&-A. v-ctj2ûm/u. '>vva^^A^aj2^ l S Ci ' 


\^/ Aevo^ cU*^v^ u^_ 

y&tcuAjzA <?Ul <lg_a 

. Le -Vut^e^ aJLs^ 

^â^-^-C5Vw_. Lov\_ Cj2J\xJ2jZ. . El L -£ L> 

'U3-^CJV^ eLz. CSL. Q2 Ax£jl CyÇ\ aæ^n^v\_^L £X ^O. Vt*J2oua_ f >V\.CLA<'i CWV£jj2^ <~£j2__ 

^ A . <W £ 'stCAo^ olu ^5V^UJU 'YV*^ • 


2 C^/L^~n <^X (. nry\-UAV^ . 



Pcwo ^ ca^ .ssCu £ YET *£q ca^cJ^ '^Y^JJro_ 

c^ <x p -=l 3 0 0 . 



Uav- tU/\_ 

^ $ H ~~ £ Vt 0^iÆAA>-^_ lAAs_ft~- 

C.OMjLÆ- , nnr^L^Z^ y "&L s^Joj^ 
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/Ve. 'Vv^aitû^ci^ôvc. sVZ-L&*~ u^. cave^t = I £0 û ) 
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M 0^4 y laa^. &(-£ < i/^cLcL V f CT 0 fi> i £ 1 * y o^- ^A^uA\oMjf 

uCCl£>l4^- ' y J r ^yLouu\j^ . 

G£ *^aa-A/Vv^^ -^/ve^L>^ "^ei LgAA^ v ££A^Oa/w 4 

cLl^ÀJr^ / ÇjL oi } (X^ÂÎ/ULà &*s^ e^tLïÀMsAJi 

*? 

_ /A nrv^svv^ <^x>^“o6 , ÏJ^ cl&AycLjt >â ' ^^cv ^ ' U/w. ^x.c ^a*SLs^ 

LLullt^ L^CJ^ck ~oLr -JZqjULA^ /èrd^L~ . Le- JU^à/h^ A/^ n^^O^V^U2L^ -^U.^ j^j2a£ 

U-v-^ <£>^2- £-tr{yV<^^ . 

Lj2. cLq^À^_ -£~<yt iMv . U^ r ^ r VX^vv CJ^ ^ C\^a_o "■&. oLjlA^C ofZtfV^ 

^çmLxxKhJL ^ oL L Ck/w^^LkL^ &^e&tsL L\ckoLkxJt -£ ' ^C^ajckr 

_ A 6/Ct^VVv^^ MjJk j '&» U/A_ 'tt^jr^ C^cLq- cLcvk^A Ac<^ isA 

J? -^aI. -e^T oCe_ . .. 

_ CW - IA//n_ <£?( üvCLu^^cx . 
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La. wiaa. cc— o-^rvr J&a (Xj^J^,^^ 

A^. -^U /\A,ch>^o^xt^ ÿ Vciiî>uoit4<. Ca CcJ2c*^JL / uJt&L 

A^~ --Ce /k^ç-X^^4^ o( r <J\>A&AAj-eJCï%^_ - -€-cajsu^_ 
X~&a_ ArOi-çe - ^~^ux0u2_ 


15 12 1 
15 122 
15 125 
15 126 
15 127 
1 5 i 30 
15 1 40 
15 150 
15 16 0 
15 170 
15 172 
15 174 
15 ISO 
/ 1 S O 
15 2 4 0 
1 5250 
1 5 2 6 O 


IF XA = O AND VA = O AND 2A = O THE N ZA = 

RO - SQ.R < Y A -*■ VA -h ZA -h- ZA) 

IF XA = O THEN B = 90: GOTO 15127 
B ~ A T N (RO / X A > : B = B ■*■ ISO / 3.1416 
IF XA < O THEN B = B + ISO 

IF VA = O AND ZA = O THEN A = 9 0: GOTO 15 

IF Z A = O AND VA > O THEN A = - 90: GOTO 

Iî=r ZA ~ ° AND VA < O THEN A = 90: GOTO 15 

^ ™ “ ATN (VA / Z A ) : A = A ■*■ ISO / 3.1416 

IF Z A < O AND VA > O THEN A ~ A - ISO 

IF Z A < O AND VA < O THEN A = A + 180 

1 R z A < O AND VA - O THEN A = ISO 

X = B *■ SIN < A -* 3.1416 / ISO): Y - B -* COS (A 


90 : GOTO 15 1 
^ 90: GOTO 1 
9 O : GOTO 15 1 


O O 1 


S O 

5 1:30 
S O 


* 3.1416 


X<I , J) = 140 A X ■*■ S5 / AN 
V (I t J) — S 5 — S 5 -**■ V / AN 
NE XT J: NE XT I 


X C / 3 ) çjc Y ( I , T J ^ __ 

(5^ 'V&. ~£qA i{ A £ "x^Lca 

<x. l/~_ frA/er^e\ 


152SO FOR 1=1 TO I_ 

15 2 90 FOR JT = i TTC) IM (I ) - 1 
15300 XA = X(I,,J>:YA = Y(I,J):RP 
15610 XB = X<I , J ■+- 1 ) : Y B = Y(I,J 


O : H 
1 ) 


(j2l IaXw CJ2— Ce *\j 

CJW —^2- 

HPloT XA//A To XÎ/VB 

/ VtS\6^ 'f'gws ^î2-0 <5L ''C <£>Co<— c2c 

0 C«^tc?otA_ç_ G'-v. 'T-t CCcAeAJ2^i5v. Ov^Æ. 

<?(, &\AJUÀA_. . 
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FENÈ TRAGF 


15320 IF Y A = Y B AMD Y A > = O AMD YA < = 190 THE M XL < 1 

> = O : XL (2) = 27 

9:YL(1) = YA:YL(2) = Y A : F F = 1: GOTO 15430 
15 325 IF XA = XB AMD XA < O THE M 15590 
15326 IF XA = XB AMD XA > 279 THE M 15590 

15330 IF XA = XB AMD XA > = O AMD XA < = 2 79 THE M XL(1) 

= X A = XL (2 > = X 

A:YL(1) = 0:Y1_(2> = 1 9 O : F F = 1: GOTO 15430 

15335 IF Y B — Y A AMD Y A < O THE M 15 590 

15336 IF YB = Y A AND Y A > 190 THE M 15590 
15340 P = (YB - YA) / (XB - XA) 

15360 YI = YA - P * XA 

15370 IFYI > = O AMD YI < = 190 THE M FF = 1 : H = H ■+■ 1 : XL < 

H) = O : YL(H) 

= YI 

15390 YI = YA -h <279 - XA) -* P 

15 400 IF YI > = O AMD YI < = 190 THE M FP = 1:H = H ■+■ 1:XL( 

H) = 2 7 9 : Y L ( 

H) = YI 

15420 XI = XA - Y A / P 

15 430 IF XI > = O AND XI < = 279 THE M FP = 1:H = H 1 : XL (H 

> = XI:YL(H 

) = O 

15450 XI = XA ■+■ <190 - YA) / P 

15 460 IF XI > = O AND XI < = 279 THE M F P = 1 :H - H -+• 1:XL(H 

) = X1:YL(H 
) = 190 


15470 

IF FF = O 

THE M 

15590 







15 430 

<2 ) ) 

SA = (XA - 

XL < 1 )) 

-a- 

(XA - 

XL(2)> 

-+• 

< Y A - 

Y L < 1 ) > 

< Y A - 

Y L 

15490 
<2 ) ) 

SB = (XB - 

XL < 1 ) ) 

-H- 

(XB - 

XL <2 ) ) 

-+- 

(YB - 

Y L ( 1 ) ) * 

(YB - 

YL 

15492 

B) 

SI = (XL < 1 ) 

- XA) 


(XL < 1 ) 

- XB) 


( Y L ( 1 ) 

- VA) * 

< Y L ( 1 ) 

- Y 

1 5494 
B) 

52 = (XL <2 ) 

- XA) 

-s- 

(XL <2 ) 

- XB) 

-h 

< Y L <2 ) 

— Y A) 

< Y L ( 2 ) 

- Y 

15500 

IF SA < = 

O AMD 

SB < 

= O THEM H PLOT X A » Y A TO 

XB 


, YB : GOTO 15590 

15510 IF SA > O AND SB > O AMD SI < O AMD 52 < O THE N HP 
DOT XL< 1) »YL< 1 ) 

TO X L < 2 ) ♦ Y L < 2 ) : GOTO 15590 
15520 IF SA < = O THEM XD = XA: YD = YA 

15530 IF SB < = O THEM XD = XB: YD = Y B 

15560 IF SI < = O THEM XF = XL<1):YF = YD<1) 

155 70 IF S2 < = O THEM XF = XD<2):YF = YL(2) 

15530 HPDOT XD.YD TO XF » Y F 
15590 MEXT J: N E XT I 

15999 RETURN . 
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lkZ^MA-0^ cnX/f^i Qza AjJ^xCCLij-eA AÜZA A &A~ 

Y **~ r Lt*-ÿŸ^& L A' OJJ^ djUAS^ <A ' L*yÙ\y4^cA*--<S^ hA'i çJ/~ A\ <?, 

t*- Ao L q/aSsAjl A oov~e<- YY CjxAasz . 

^ € O Y JuL A Ycvctvv Y ^Vwv Y f A M^ 2 . HT (-J? Ov 

e* 1S6 l *^ &«/') _. 



> A 


Aç^L^fAj^ O^-A Aj'~k$\Aq_ A t^ 

^ixo-^-v^~ An Aa^lAx 


= (Vg -Yi4)/f x6-Xa) 

• -y_ YA _ YB- Y4 _ T 

x-xd xg-XA 


i//v\a£a. £>Ua co^cLaz- )( — ^ y J - y ,4 - p ^ y. t 4 ^cK 

ckj^JjL ^ % rr ^~- ^C2_ CdL(Jy^^ ^ (a A -£X"V cÀjlASSy. sjp 0 uJ6 

62, y^x la^~ A AsXsÜaX^ /A ; C^ <" Y Z Y I S & 


S^osv^ct c&uLw- : x - 2 7 *? =?> Yj-YA+^Zl*! — Xa)Y_P A 

a AjJü^X & < YI < 10^ 

Uxp.p{e/AA^_ «AûxaajL^J^ ■. y- ^ Yl ;XA - VA/F (YJ 

Y (\ûJjîmàa- aA ja'< X î ^ Z-7 1 

(ÎY*-<Æù2xiAr^ JbuMJi^Jr Y — itf A =$> Xx - XAj- (A â& -YH-J /JE 1 (j5~) 

^ > 2 T < XI < 2 Y 3 - 


yî /y 6xv 7 U ^tiŸ^JrlsL, CjisJL '(a. AmaÆ- 

A%> ' YJi yjr&4 <l-0^cüie— : 
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CdVM/vu2_ <jv\ -^2- nreAAj^ -^crtA^ ^ ixa^ol_ <x^ij^ cjl 

<^_æ idjiL^j^ y vn -'W\-£^ u^i^-ç_ ■^O-C^ 

-^ 2 A s£{i<iAjdZjdl\ -jotiudz ci 1 OVv^Ia^A^>Ü^_ M-'l |^\ 2. ^-jsl Co^ olj^ijtsL 
A'fe (MtCjcZsl oAü. . WW eC. 

! \#4iy^uJCZr*A dju\ ''^O'j^Jzâ A / ^> / l^\ A / H 2_ /%^a_ . 

$W 'U-ÔA&'-êX. -C^AAàX- y\j?_ -&CUSJZ. /^CCa_ -^2- cJL&<\ ^JcO<ZkjZZX 

AvoZojCmJ* : 



~^JUl ëjAÂOYir^Xj&X oU-'v 


^0 't 





FENETRAGE 

1R310 jf -ys A/vb ya> = A ant> y a \qef theN 

XL (a] =- ç* : XLC^-Zltj :YLh) - Y4v YL-Clj - y A : 

F - J_ <L°J °_7 f^JZf 

1F XA-XF> AivD XACpr Tf/tM IEÇ-io 
AE32A IF Yh^'Yl */\>27ATFeM |ÇV?<zf 

4 6 " 33 ^ i^y A=y 6 amd xa>=^ FMbYA(f= 21F 
TH^lV XLt*)- XA : XL^Z-J - XA : Vl^ = çf : y LC2) 
-\^P : Ff - N. *. 6-OTü IÇ-j-Zjà 

y lF'33r IF V6 - VA A A/d YA TH£TA/ /FF <7pr 


IFYft^YA- A-tv/D V A > 13 0 TFêTV I Ç^pY 

GJLojJI <Ll ^ -j^stcL IS'bAp P - (v% - na) / C Y- b-Va) 

7 3^L î ,ecA ( jw o^c -&. AE2G& vi : Y4 -p^ X A 
o6wF fc Y - F 

M/v 'M////// AÇllÿ If yi >-0 FMï> VI < = 17^ THfc/V VP=1\ 

'T^ZU>< h-H-M : XlCH ) = ? : YF (fn; = Yi 

'fcl'U^l tteUAjJkjL. Jt^A~ 

(Afu^pSL (j* <?(a/0v6. 

A_$_?_ 

10 W 6mVc A^ 21 ÿ> 7l - Y A -F C^T A — Y A)*- P — ~ — - 

Uv. oU^A: Y ~ 21 e ! 

1 A 

W/TJÀk' ' " A*r+?/S Xpyi > = 52! AKDYi< = Hj2f TflFM FP-1: 

/f///f v H-F-1 : XL (TH) = XI F : VA (H) =r YI 

-r / > X 

'thru-L /h 

-& '(rerOol AjurJb Q^At 

C&trf-JL Ai 13 
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A Ç XI r X A - Y A / P 

Y — 0 _ _ _ 

~îfxi7=?s ^a/ D xj <=2Tr 

i5Ur<-C-^e. “^reTt-c^- A^tY-é T H £f /W PP = "1 • 

oW "* V= "^ H-H-PA : XL(H)= YX : YL^J=^ 

Y 



^~te^ecXÿ<jw <3Mr€ ^ APAP0 Y 1 = X A + £1 9 0 - VA) /P 
(kh&Jji Y — I 

4Ç H Sÿ |F )(l>'0AivJDYl<=2"l £ i THFW F P" "1 

: AUf{) - xi : Y^ÉH) = 195 a 



ûsks (ju. A% — 

%SL CA<£>^A£- ' ^ 


rPFP^cXTf/eN 



( F 'w/fâc tvvjJL ÿ 

^GaJlcuAi^ 

pMA . M2.A 


AA - AS/f SA - (YA - XL(<)) Y (* A - V L~Cz)) 
Y (VA -Yt^jj^A-YL 



pA^i^juutYr rcô^ou^Q- 

MÂ£ . fïïft 


P VioU^Y: Sc»Jlaxs>~Q_ 

-=J> ->■ 

An A • & M A 


fXo cCoiA S C£ïJ2cuYa_ 

Â~Mt. 



sgr (xg- xlA;J>p( *£ - y^z 
f- (Yf?~ YZ_(Yj)-Y ^ Y g - 'iuCz)^ 

SI - (X-Lfr) — Y A-)-* (Y'Lfa) — xfë 

-h (YU'i) - Y4) AF £ YL f/ - Y8j 

YTY 1 A *2 <= C ŸTo^-YA) C ^LCz)- yB 

\~CUCi)- YA)AF( VL<^) - Y8) 

'îÇÇ&p IF S’A <=ÿ( and SB 4=^ Tf/^/vy 
•HPLüT Y A 1 YA To y g ,Yg : 6-OTO 17FYÜ 


A A/p^ Ox Y (f*^JLK(Mu l. 

0<M- At^Vyv^Y" M4 M l 


Y 03 



AÇÇlp IF <S A>P Sg>^ ÆMÙ si < J2f 
frND ~T«EN HŸIOT Y i-0\] , YF(ij T D 

YUt) y V/-C2J ; 60T0 

H >1 e/fr"M 2. b&Jr ex. 

-£.' \jAcvFsuj^ cU_ 

"'1^20 IF S A <= ~TH£N YP^YA :yb = YA 
(_ djtiXyu-A Y*-k o. fÂX C£S<- 

A F A3p ^ <^,0 TH^fY XD -Y 8 • VD = VS 
-1 rc^çs IF S'I < — s# TUçN Xf = YU<) : Y F=YLfr) 

A*rA~5~<p IF TH£N YF = YLCi) •'YF^ VL-Cz) 

A‘FtT HIPLOT yi^/YJ) ToYF/Yp 

AÇA'Ap a (eYTi : A/fyri 

f 2 ^ TUfPPf 






PANGRA PH£ DESSIN 


O IF F D = 1 THE N 5 

1 L = O: REM PA IM OR A P HE DESSIN 

2 DIM XT(3 0,9) t YT(30t?),ZT(3 0,9),X 

3 D* — CHR$ (13) ■+■ CHR$ 

5 TF. XT : HOME 

6 IF C < > O THE N 330 

ÎO HOME 

20 RE M 


5 /2 / 
<30 ,9) 


3 4 

# Y (30,9) 


,N(30):FD 


1 


PROGRAMME MENU 


30 
40 
50 
60 
70 
S O 
90 

1 oo 

1 i O 

120 
130 
1 40 
150 
160 
170 

1 3 0 
190 
200 

2 10 
2 20 
230 
240 
250 
260 
270 
290 
300 
3 10 
320 


VT AB 1 
FRI NT ' 
F OR TE 
HOME 
FRI NT 
VT AB 3 
VT AB 1 
FRI NT 
FRI NT 
FRI NT 
FRI NT 
FRI N T 
FRI NT 
FRI NT 
FRI NT 
FRI NT 
FRI NT 
FRI NT 
FRI NT 
FRI NT 
FRI NT 
FRI NT 
FRI NT 
FRI NT 
FRI NT 
I N FU T 
I F C = 

I F C = 
IF C = 


5: HT AB 15 
1 VOULE Z-VOUS:" 

= 1 TO 500: N EXT 


: HT AB 25: FRINT "FANGRAFHE DESSIN" 

1—(CREER UN OBJET)" 

"2 —(STOCKER UN OBJET)" 

“ 3 — CHARGE R UN OBJET" 

"4-(COMPLETE R UN OBJET)" 

"5 — (MODIFIER UN OBJET) 

"6-REFRESENTER UN OBJET" 

"7-STOCKER UNE IMAGE" 

"y-CHARGER UNE IMAGE" 

"9 — (MANIPULER UN OBJET)" 

ÎO —(DEFINIR UN BLOC D'OBJETS)" 
j,' "“CONSULTE R UN FICHIER BLOC" 

" 1 3-" 

" 1 4 — " 

" 15-" 

" 16—" 

"17-AFFICHER LE CATALOGUE" 

"18—SORTIR DU PROGRAMME" 

"VOTRE CHOIX " ,C: 

17 T H E N FRINT Di" C AT ALOG" ■ GE T Ai 
13 THEN END 

19 THEI ' 1 PRI 1 MT Dr'RUNPANGRAPHE PRINCIPAL 

« 000 °^°°00,4000,40000.40000,7000,*000,v0 

9000 

999 GOTO ÎO 
4000 REM 


GE T Ai 


CHARGEMENT OBJET 


40 10 
4020 
4030 
4040 
4050 
4060 
4070 
40 3 0 
4090 
4 100 
4 110 
4 120 
4 130 

4999 

5000 
5999 


INFUT "NOM DE L'OBJET ";0$ 

Di = CHR$ (4) 

FRINT D$"OPE N" ;0$ 

FRINT D$"READ" ;0$ 

INFUT L 
F OR 1=1 TO L 
I N PUT N (I ) 

NE XT I 

F OR I = i TO L 
FOR J = 1 TO N (I ) 

INPUT XT ( I t J ) : INFUT YT(I,J): INFUT ZT(I 
N E XT J: N E XT I 
FRINT D$"CLOSE";0$ 

RETURN 
GOSUB 2000 
RE TUR N 


t J ) 


loî 



7000 REM 


REPRESENTER UN OBJET 


7010 TE XT : HOME 
7020 PRINT : FRINT 

7030 INPUT "OUVERTURE ANGULAIRE " ; A N : FRINT 
7040 PRINT "POINT D'OBSERVATION" 

705 0 PRINT : INPUT "X=";XM 
7060 INFUT ' ' Y — " ; Y M 
7070 INPUT " Z= " ; Z M 

7 0 8 0 PRINT : PRINT "CENTRE G DE L'IMAGE": FRINT : INFU 
T "XG="iXG-. INFUT 

"YG=";YG: INFUT " ZG= " ; ZG 
7090 CX = XG - XM:CY = YG - Y M : C Z = ZG - ZM 
7 100 DI = S O. R (CX ■* CX ■+■ CY -* CY) 

7 110 IF DI = 0 AND CZ > O THE N TE = 0:KI = 3.1416 / 2: GOTO 
72 10 

7120 IF DI = O AND CZ < O THE N TE = 0 : Kl - - 3.1416 / 2: GO 

TO 72 10 

7 130 Kl = AT N (CZ / DI) 

7 140 IF CX = O AND CY > O THE N TE - 1.57: GOTO 72 10 

7 150 IF CX - O AND CY < O THE N TE = - 1.5 7: GOTO 72 10 

7160 TE = AT N (CY / CX) 

7 170 IF CX < O AND CY > O THE N TE = 3.14 16 + TE 

7 130 IF CX < O AND CY < O THE N TE = 3.1416 ■+■ TE 

7 190 IF CX < O AND CY = O THE N TE = 3.1416 

7200 IF CX = O AND CY < O THE N TE = — 3.1416 / 2 

72 10 A Z = TE ■* 170 / 3.1416 -SI = Kl * 17 0 / 3.1416 

7220 REM AZ AZIMUT; SI SITE 
7230 CT = COS (TE ) : ST = SI N (TE) 

7240 CK = COS (KI):SK = SI N (Kl) 

7250 XU = CK -* CT:YU = CK * ST:ZU - SK 
7260 XV = - ST: Y V = CT: Z V = O 

7270 XW = - SK -* CT: YW = - SK * ST : Z W - CK 

7 230 HOME 

729 0 PRINT " 1 - O B J E T DEJA EN MEMOIRE": FRINT 

7300 PRINT "2-DESSIN FAR ELEMENTS": FRINT 

7310 PRINT "3-DESSIN PAS A PAS": FRINT 

7320 FRINT "4 —DESSIN PAR BLOC" : PRINT 

7330 INFUT "VOTRE CHOIX ";C: FRINT 

7340 ON C GOSUB 12000,1 1000,30000,10000 

7993 GET AS: TEXT 

7999 RETURN 

3000 REM 

STOCKER PAGE II 


5005 HOME 

50 10 INPUT "NOM DE L T M AGE ";IM$ 

5020 D* = CUR $ (4) 

5030 FRINT D£" BS A VE " ;IM$;" ,AS4000,Lt2000" 
5999 RETURN 
9000 REM 

CHARGER SUR PAGE II 


9005 HOME 

9010 INFUT "NOM DE L'IMAGE? "ilM* 
9015 HGR2 : HCOLOR= 3 
9020 D* = CHR* (4) 

9030 FRINT D$"BLOAD";IM$ ,A$4000" 
9060 GE T At 

9999 TE XT : HOME : RETURN 
1 0000 REM 

DESSIN FAR BLOC 


10010 INFUT "NOM DU BLOC " ;BLt : FRINT 
10030 HGR2 : HCOLOR = 3 

10040 HPLOT OtO TO 279,0 TO 279,190 TO 0,190 TO 0,0 
10050 FOR K = 1 TO E 
10060 O* = EL$(K) 

10070 GOSUB 4020 
10030 GOSUB 15000 
10090 NEXT K 

10100 FOR T = 1 TO 7: FRINT CHR$ (7): N E XT T 
10999 RETURN 


106 




llOOO REM 


DESSIN PAR ELEMENTS 


1 i O 1 O HOME 

1 1020 INFUT ''NOMBRE D'ELEMENTS ";E 
1 1030 FOR K = 1 TO E 

11040 INPUT "NOM ELEMENT ";EL*(K) 

11045 NE XT K 

11050 HGR2 : HCOLOR= 3 

11060 HFLOT 0,0 TO 279,0 TO 279,190 TO 0,190 TO 0,0 
1 1070 FOR K = 1 TO E 
11080 0$ = EL$(K) 

1 1090 GOSUB 4020 
1 1 1 O O GOSUB 15000 
1 1 1 1 O NE XT K 

11120 FOR T - 1 TO 7: PRINT CHR* <7 > : N E XT T 
11999 RE TUR N 
12 000 REM 

OBJET DEJA EN MEMOIRE 


12010 HGR2 : HCOLOR = 3 

12020 HFLOT 0,0 TO 279,0 TO 279,190 TO 0,190 TO 0,0 
12030 GOSUB 15000 

12040 FOR T = 1 TO 7: FRINT CHR$ (7): N E XT T 
12999 RETURN 
15000 REM 

CALCUL ET TRACE IMAGE 


15010 FOR I = 1 TOL-- FOR J = 1 TO N (I > 

15040 XL = XT <1 , J) - XM 

15050 VL = YT(I,J) - YM 

15060 ZL - ZT(I,J) - ZM 

15090 XA = XL XU + VL * VU -+• ZL ZU 

15100 VA = XL -* XV + VL * Y V ZL ■* Z V 

151 ÎO ZA = XL -K- XW ■+- VL ■* YW + ZL * ZW 

15121 IF XA = O AND VA = O AND ZA = O THE N ZA = .Oül 

15122 RO = S O. R C V A VA -+- ZA *■ ZA) 

15125 IF XA - O THE N B = 90: GOTO 15127 

15126 B = AT N (RO / XA) : B - B ISO / 3.1416 

15 127 IF XA < O THEN B = B ■+■ ISO 

15130 IF VA = O AND ZA “ O THEN A = 90: GOTO 15180 

15 14 0 IF Z A = O AND VA > O THEN A = — 90: GOTO 15 ISO 

15 150 IF Z A = O AND VA < O THEN A = 90: GOTO 15 180 

15160 A - — AT N (VA / ZA):A = A ■* ISO / 3.1416 

15 170 IF Z A < O AND VA > O THEN A = A - ISO 

15 172 IF Z A < O AND VA < O THEN A = A + 180 

15 174 IF Z A < O AND VA = O THEN A - ISO 

151 S O X - B -h- SI N (A * 3.1416 / ISO): Y - B ^ COS (A •* 3.1416 
/ 180) 

15240 X(I,J) = 140 f X -* 85 / AN 

152 50 V(I, J) = S 5 - S 5 ■* V / AN 
15260 N EXT J: N E XT I 

15280 FOR I - 1 TO L 
15290 FOR J = 1 TO N(I> - 1 

15300 XA = X(I ,J) : V A = V(I,J):FP = O : H = O 
15310 XB = X(I,J 1 ) : V B = Y(I,J ■+■ 1) 

15320 IF VA = VB AND VA > — O AND VA < = 190 THEN XL ( 1 

> = O: XL (2) = 27 

9 : YL(1 > = V A : Y L (2 ) = V A : F P = 1: GOTO 15 480 

153 25 IF XA = XB AND XA < O THEN 15590 

153 26 IF XA ~ XB AND XA > 279 THEN 15590 

153 30 IF XA = XB AND XA > = O AND XA < = 279 THEN XL ( 1 ) 

“ X A : XL (2 ) = X 

A:YL(1> = G:YL(2) = 1 9 O : F P = 1: GOTO 154SO 
15335 IF VB = VA AND VA < O THEN 15590 

153 3 6 IF VB = VA AND VA > 190 THEN 15 590 

15340 F = (VB — VA) / (XB — XA) 

15360 VI = VA — P * XA 

15370 IF VI > = O AND VI < = 190 THEN FF - 1:H = H -+- 1 : XL ( 

H) = O'YL(H) 

= VI 

15390 YI = VA (2 79 - XA) -* P 

15 400 IF VI > = O AND VI < =190 THEN F P = 1 : H = H -+• 1 :XL( 

H) = 2 7 9 : V L < 

H) - VI 

15420 XI - XA - YA / P 

15430 IF XI > = O AND XI < = 279 THEN FP = i:H = H + 1:XL(H 
) = XI: VL(H 
) = O 

15 450 XI = XA ■+■ <190 — VA) / F 

15 460 IF XI > = O AND XI < = 279 THEN FF = i:H = H -+■ 1 : XL (H 
) = XI:YL(H 
) = 190 

15470 IF FP = O THEN 15590 

15480 SA = (XA - XL( 1 )) -* (XA - XL<2)> (YA - YL( 1 )> *- (VA - VL 
(2)) 


-lo J- 




1 5490 

SB = 

(XB - 

XL ( 1 ) > 


(XB - 

XL (2)) 

-4- 

(YB “ 

Y L ( 1 ) ) 

-8- 

(YB - 

YL 

(2)> 

15492 

S 1 = 

( XL ( 1 ) 

- XA) 

-ür 

(XL ( 1 ) 

- XB) 


(YL(1> 

- YA) 

■Sr 

( Y L ( 1 ) 

- Y 

B) 

15494 

52 = 

(XL ( 2 ) 

- XA) 


( XL <2 ) 

- XB) 

-I- 

(YL(2) 

- YA) 

•8- 

< YL (2 ) 

- Y 


B) 

15500 IF SA < = O AND SB < = O TME N HPLOT XA,YA TO XB 

,YB: GOTO 15590 

15510 IF SA > O AND SB > O AND Si < O AND S2 < O THE N HP 
LOT XL (l)fYL(l) 

TO XL (2),YL(2): GOTO 15590 
15520 IF SA < = O THE N XD = XA : YD = Y A 

15530 IF SB < = O THE N XD = XB:YD = YB 

15560 IF SI < - O THEN XF = XL ( 1 ) : Y F = YL(1) 

15570 IF S2 < = O THEN XF = XLC2):YF = YL<2> 

15530 HPLOT XD , YD TO XF »YF 
15 590 N E X' r J: N EXT I 
15999 RETURN 
2 9 000 REM 

LECTURE FICHIER BLOC 


29005 HOME : INPUT "NOM DU BLOC ";BL*: PRINT 
29010 D* = CHR $ (4) 

29020 PRINT Di"OPEN"iBL$ 

29030 PRINT DS “ R E AD" ; B L$ 

2 90 40 I N PU T E 
29050 FOR 1=1 TO E 
29060 INPUT ELS(I) 

29065 NE XT I 

29070 PRINT D S " CL OSE " ; BL S 

29030 FOR 1=1 TO E: PRINT EL$(I): N E XT I 
2 9090 FOR TT = 1 TO 2 0 00: N E XT TT 

29999 RETURN 

30000 REM 

DESSIN PAS A PAS 


3 0 010 HOME 

3 0020 INPUT "NOM PREMIER ELEMENT ";0*: PRINT 

30030 GOSUB 4020 

30040 HGR2 : HCOLOR= 3 

30050 HPLOT 0,0 TO 279,0 TO 279,190 TO 0,190 TO 0,0 
30060 GOSUB 15000: FOR TT = 1 TO 7: PRINT CHRS (7): N E XT 
TT 

30 0 70 GE T AS: GE T AS 

30080 POKE - 16303,0: POKE - 16300,0: REM TEXTE 
3 0090 INFUT "UN AUTRE ELEMENT ? ";RS: PRINT 
30 100 IF LEFTS (RS,1) < > "O" THEN 30 99 9 

30110 INPUT "NOM DE L'ELE MENT ";OS: PRINT 
30120 GOSUB 4020 

30 130 POKE - 1630 4,0: POKE - 16299,0: REM PAGE II 
30140 GOSUB 15000: FOR TT = 1 TO 7: PRINT CHRS (7>= N E XT 
TT 

30 150 GE T AS: GE T AS 
30 160 GOTO 300 30 
30999 RETURN 
40000 REM 

CHAINAGE SUR F/OBJET 

40010 PRINT DS"BLOADCHAIN,A520" 

40020 CALL 5 2 O" PA MGR A PME OBJET" 


Remarque : 

l'ensemble PANGRAPHE-OBJET + PANGRAPHE 
DESSIN a été conçu pour pouvoir être aisément récupéré et 
modifié par l'utilisateur, qui trouvera là une initiation à la 
CONCEPTION ASSISTEE SUR ORDINATEUR (CAO). 
Les Menus comportent des "lignes vides", que le lecteur pourra 
remplir au gré de son imagination. 

1999 : Le BASIC moderne ne comportent plus de "lignes 
programmes". Les têtes de sous-programmes sont repérées à 
l'aide "d'étiquettes", ce qui donne encore plus de souplesse à 
l'ensemble. Toujours est-il que l'ensemble proposé est 
MODULAIRE et que l'utilisateur peut ajouter des sous- 
programmes à l'infini pour enrichir celui-ci. 
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COMMENT UT/ÜSEk 

PANGRAPHE 


La. •'j'V'Ovfe djuyxi ; 

PAN6RAPH6 OBJET 

PAN6RAPNE bESSÎM 
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